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本 書 の 内 容 


本 書 は 、Visual Basic 6.0 を 使っ て 、 は じ め て 
Windows の プロ グラ ム を 作成 し よう と する 人 や 、 他 の プ 
ログ ラミ ング 言語 を 使っ た こと は ある が 、 Visual Basic 
を 使う の は は じ め て 、 と いう 方 を 対象 に 、 すぐ に Visual 
Basic で Windows の プロ グラ ム を 作成 で きる よう に 、 
随所 に 工夫 を 凝ら し た 構成 で 編集 し まし た 。 


全体 の 流れ は 、「 プ ログ ラミ ング セミ ナー」 の よう に 、 段 
階 を 追っ て Visual Basic の 使い 方 や テク ニッ ク を 説明 
し て あり ます , 各 レ ッ ス ン は 、 4 段階 に な っ て いま す , 


[レッスン の 構成 】 


1. サン ブル の 説明 
サン ブル の 動作 と 、 
作成 の 際 の ホイ ント を 解説 し ます 。 


2. 操作 説明 
作成 に 伴う 一 連 の 操作 を 、 
わか りや すい よう に 画面 を 使っ て 
説明 し ます 。 


3. コー ド の 解説 
プロ グラ ムコ ー ド を 、 
丁寧 に 解説 し て いき ます , 


4. 練習 問題 
練習 問題 で 基礎 を 固め 、 
応用 力 を つけ ます 


紹介 し て いる サン ブル の コー ド は 、 入門 者 が 混乱 し な い 
よう に 、 説明 の ボイン ト を 重点 的 に 絞っ て 、 な る べく 少な 
い 行 数 で 作成 し まし た 。 も っ と も 長い も の で も コー ド の 入 
力 に 時 間 を 取ら れる こと は あり ませ ん 。 また 、 これ ら の サ 
ンプ ブル は コン バ パクト で 理解 し や すく 、 様々 な テク ニッ ク を 
簡潔 に 紹介 し て いる の で 、 自 分 で 開発 する 際 に 応用 する 
こと が で きま す 。 サン プル の 完成 バー ジョ ン は 付属 CD- 
ROM に 収録 され て いま す 。 


本 書 で は 、 従来 の プロ グラ ミン グ 解 説 書 の よう に 
[Visual Basic と は な に か 」 と いう その 概要 や 概念 の 説 
明 の 長 さ で 、 プロ グラ ム を 作る 前 か ら う ん ざり し て し まう 
よう な こと は あり ませ ん 。 そう いっ た | 解説] は レッ スン の 
最後 に まとめ て 、 まず 「 作 る こと 」 そ れ 自 体 を 楽し ん で も ら 
うこ と を 主 と し た レッ スン 構成 に し て いま す , 


本 書 は | 作り な が ら お ぼ え た い 人 」 と 「 お ぼ え て か ら 作 り 
た い 人 」 の どちら に も わか りや すい よう に 書か れ て いま す 。 
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本 書 内 容 に 関す る お 問い 合わ せ に つい て 


この た び は 翔 涼 社 の 書籍 を お 買い 上 げ い た だ き 、 誠 に あり が と う ご ざ いま す 。 貞 社 で は 、 読 者 の 皆様 か ら の お 問い 合わ せ に 適 
切 に 対応 きせ て いた だ くだ た め 、 以 下 の ガ イド ライ ン へ の ご 協力 を お 願い 致し て お り ま す 。 ト 下記 項目 を お 読み いた だ き 、 手 順に 
合っ て お 問い 合わ せく だ さい 。 


全 ご 質問 され る 前 に 
盤 社 Web サ イト の 「 正 誤 表 | や 「 出 版 物 Q&A| を ご 確認 くだ さい 。 こ れ ま で に 判明 し た 正誤 や 追加 情報 、 過 去 の お 問い 合わ せ へ の 
回 答 (FAQ)、 的 確 な お 問い 合わ せ 方 法 な ど が 掲載 され て いま す 。 


正誤 表 http//www.seshop.com/book/errata/ 
出版 物 Q&A http://www.seshop.com/book/qa/ 
@ ご 質問 方 法 


社 Web サ イト の 書籍 専用 質問 フォ ー ム (http://www.seshop.com/book/qa/) を ご 利用 くだ さい (お 電話 や 電子 メー ル に よる お 問 
い 合 わせ に つい て は 、 原 則 と し て お 受け し て お り ま せん )。 


※ 質 問 専 用 シー ト の お 取り 寄せ に つい て 

Web サ イト に アク セス する 手段 を お 持ち で な い 方 は 、 ご 氏名 、 ご 送付 先 (ご 住所 郵便 番号 電話 番号 また は FAX 番号 電子 メー 
ル ア ド レス ) お よび | 質問 専用 シー ト 送 付 希望 ] と 明記 の うえ 、 電 子 メ ー ル (qaform@shoeisha.com) 、FAX、 郵 便 (80 円 切手 を ご 
同封 願い ます ) の いずれ か に て “編集 部 読者 サポ ー ト 係 " まで お 申し 込み くだ さい 。 お 申し 込み の 手段 に よっ て 、 折 り 返 し 質問 シ 
ー ト を お 送り し ます 。 シ ー ト に 必要 事項 を 漏れ な く 記 入 し 、“ 編 集 部 読者 サポ ー ト 係 " まで FAX また は 郵便 に て ご 返送 くだ さい 。 


人 @ 回 答 に つい て 
回 答 は 、 ご 質問 いた だ いた 手段 に よっ て ご 返事 申し 上 げ ま す 。 ご 質問 の 内 容 に よっ て は 、 回 答 に 数 日 な いし は それ 以上 の 期間 を 要 
する 場合 が あり ます 。 


全 ご 質問 に 際 し て の ご 注意 
本 書 の 対象 を 越え る も の 、 記 述 個所 を 特定 され な いも の 、 ま た 読者 固有 の 環境 に 起因 する ご 質問 等 に は お 答え で きま せん の で 、 予 
め ご 了承 くだ さい 。 


人 @ 郵 便 物 送付 先 お よび FAX 番号 
送付 先住 所 〒160-0006 東京 都 新宿 区 舟町 5 
FAX 番号 03.5362-3818 
移 先 (株 ) 翔 泳社 出版 局 編集 部 読者 サポ ー ト 係 


本 書 で 紹介 し た 全て の レッ スン は 、 マ イク ロ ソ フト 株 式 会 社 より 発売 中 の Microsoft@⑥ Visual Basic@ 6.0 Professional Edition 及び 
Enterprise Edition 上 で 動作 する よう に 作成 され て いま す 。Visual Basic 6.0 Learning Edition で は 、 動 作 可能 な も の も あり ます が 一 部 
の レッ スン は 動作 し ませ ん 。 各 レ ッ ス ン に お ける Visual Basic 6.0 Learning Edition で の 動作 の 可否 に つい て は 、 本 文中 の 各 レ ッ ス ン の 
巻頭 ペー ジ 左 下 に 以下 の よう に 明記 し て いま す の で ご 確認 くだ さい 。 

な お 、 本 書 に は Visual Basic 本 体 は 収録 され て お り ま せん 。Visual Basic を お 持ち で な い 方 は 別途 ソフ ト が 必要 で す 。 


記号 の 意味 

〇 … 動 作 可能 x… 動 作 不可 
使用 例 (動作 不可 の 場合 ) 

X Leaming Edition 





※ 本 書 に 記載 され た URL 等 は 予告 な く 変更 され る 場合 が あり ます 。 

※ 本 書 の 出版 に あたっ て は 正確 な 記述 に つと め ま し た が 、 著者 や 出版 社 な どの いずれ も 、 本 書 の 内 容 に 対し て な ん ら か の 保証 を する も の で は な く 、 内容 や サ 
ンプ ル に 基づく いか な る 運用 結果 に 関し て も いっ きい の 貢 任 を 負い ませ ん 。 

※ 本 書 に 掲載 され て いる サン プル プロ グラ ム や スク リプ ト 、 お よび 実行 結果 を 記し た 画面 イメ ー ジ な ど は 、 特 定 の 設定 に 基づい た 環境 に て 再現 され る 一 
例 で す 。 


に まま まま 


Microsoft、Windows、WindowsNT、Windows2000 は 、 米 国 Microsoft Corporation の 米国 お よび その 他 の 国 に お ける 登録 商標 で す 。 


よう こそ 、Visual Basic 6.0 入門 教室 へ ! 


この 授業 を すべ て 受講 すれ ば 、 あ な た も Visual Basic で Windows の プロ 
グラ ム が 簡単 に 作れ る よう に な り ま す 。 





これ まで か な り 専 門 的 な 知識 が な いと 作成 で き な か っ た Windows の プロ グラ ム 
が 、Microsoft⑥ Visual Basic@⑥ (以下 Visual Basic) の 登場 で だ れ で も 気軽 に 作成 
よ 人 の に な 0 まし か 。 


Visual Basic は 、Microsoft か ら 発 売 さ れ て いる 、Windows95/98/Windows 
NT4.0 で 動作 する 32 ビ ッ ト ア プリ ケー ショ ン を 作成 する プロ グラ ミン グ ソ フト で 
す 。 マ ウス の 操作 だ け で 、 簡 単に プロ グラ ム の 外観 を 作成 で きる 手軽 さと 、Basic 
言語 を ベー ス に ゼ た 学習 ピ や すき を 開 ね 備え た 記 大 変わ む が サ や すい プロ グラ ム 言 
語 で す 。 


わか りや すい 言語 で ある 一 方 で 、Windows の 持っ て いる 多く の 機能 を 、 自 分 の 
プロ グラ ム に 取り 入れ る こと が で きる 、 強 力 な 開発 環境 に な っ て いま す 。 し か し 、 
それ で も 、Windows 独 特 の 「 イ ベン ト 対 応 ] プロ グラ ミン グ を 習得 する に は 、 多 
少 の 努力 が 必要 に な っ て いま す 。 


本 書 で は 、 こ の Visual Basic の 言語 仕様 や プロ グラ ミン グ 概 念 を 、 特 に わか り 
や すく 解説 し て いま す 。 ま た 、 フ ォ ー ム や コン トロ ー ル 、 プ ロ パ ティ と メソ ッ ド 
な ど に つい て も 、 実際 に プロ グラ ム を 作成 し な が ら 覚 えて いく ぐ 学 習 ス タイ ル を 採 
用 し 、 一 段 と わか りや すい 解説 書 に 仕上 げ て いま す 。 


1 つの レッ スン に 1 つの 例題 プロ グラ ム を 使用 し 、 基 本 的 な コン トロ ー ル を 使 
う 初歩 的 な テク ニッ ク か ら 、 マ ル チ メ ディ ア や デー タベース を 扱う 中 級 レ ベル の 
テク ニッ ク ま で 、 実 用 的 な テク ニッ ク を 幅広 く 紹介 し て いま す 。Lesson1 か ら 最 
化 ま で 学習 し て いけ ば 、 必 ずり Visual Basic を 使っ て Windows の プロ グラ ム が 作成 
で きる よう に 、 カ リキ ュ ラ ム を 組ん で いま す の で 、 ま た た くま に Visual Basic に 
よる Windowvs の プロ グラ ミン グ テ ク ニッ ク を マス ター で きる で し ょ う 。 


ぜひ 、 本 書 を 使っ て 、Visual Basic プロ グラ ミン グ を 楽し ん で くだ さい 。 


1998 年 11 月 1 日 瀬戸 問 


よう こそ 、Visual Basic 入門 教室 へ ! 


還 証 際 オリ エン テー ショ ン 


Visual Basic へ よう こそ 
Visugal Basic と は 
Visual Basic の ひろ が る 世界 
Visual Basic 6 も .0 で で きる こと 
Visual Basic の プロ グラ ミン グ と は 
Visual Basic と 他 の 開発 言語 と の 違い 
WindowS アプ リケーション と は 
Visual Basic は 「 旅 行 会 社 ] ? 
イベ ント 駆動 型 プ ログ ラミ ング 
視覚 的 ・ 対 話 的 な 機能 に よる 効率 的 な 開発 
最低 限 知 っ て お きた い 用 語 
プロ グラ ミン グ を は じ め る 前 に 
本 書 の 構成 
レッ スン 前 の チェ ッ ク ポ ボ ポイ ント 
CD-RHOM の 使い 方 
Visual Basic の 開発 環境 
Visual Basic の 開発 環境 
Visual Basic の 画面 構成 
Visual Basic の 癌 部 の 名 称 
Visual Basic の 基本 操作 
CD-ROM を ご 使用 に な る 前 に 
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は じ め て の プロ グラ ム を 作る 


第 ど 日 





ビ ここ 








第 4 日 


1 時 限 目 


ど 時 限 目 


時限 目 


4 時限 目 


LeSSOn 1 
LeSSOn ど 
LeSSOn 9 
LeSSOn 4 
LeSSO ら 
LeSSOn 6 
LeSSOTn / 


イベ ント を 使う 


1 時 限 目 
ど 時 限 目 
時 限 目 
4 時限 目 
5 時限 目 


LeSSOn 8 
LeSSOn 9 
LeSSOn 10 
LeSSOn 1 1 
LeSSOn 1 ど 


メニ ュー を 使う 


1 時 限 目 
ど 時 限 目 
時限 目 
4 時 限 目 
ら 時 限 目 


LeSSOn 19 
LeSSOn 14 
LeSSOn 15 
LeSSOn 16 
LeSSOn 1 / 


コマ ンド ボタ ン で メッ セー ジ を 表示 する 
終了 ボタ ン を 追加 する 

プロ バテ ィ を 操作 する 

プロ バテ ィ へ の 値 の 代入 

イメ ー ジ ファ イル を 使う 

イメ ー ジ を 切り 替え る 

コン トロ ー ル を 組み 合わ せる 


ント ドッツ と ダブ フル プリッ ク 

マウ スイ ベン ト を 使う 

変数 を 使う 

MouseDown と MouseUp の 組み 合わ せ 
お 絆 描き プロ グラ ム の 作成 


メニ ュー を 組み 込む 

石 ボ ポタ ン ポ ボッ プア ッ プ メニ ュー を 作る 
メニ ュー を 追加 する 

メニ ュー の 削除 

状況 感知 型 メ ニュ ー を 作成 する 


コン トロ ー ル の 連携 と 動作 


1 時 限 目 
ど 時 限 目 
時限 目 
4 時限 目 


LeSSOn 18 
LeSSOon 19 
LeSSOn 0 


LeSSOn ど 1 


アニ テーション 表 ボ プロ グラ ム 
スク ロー ル バ ー と ツー ル チ ッ プ を 使う 
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98 
104 
110 
118 
124 


0 あ ゲ 


13 
160 


チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル を 使う 174 


コン ボボ ックス で の リス ト 項 目 の 追加 と 削除 


186 








第 6 日 








= 計 作 = 


第 8 日 





第 9 日 





ファ イル を 操作 する 


] 時 限 目 Lesson 6 つの テキ スト ファ イル を 読み 込む 
時 限 目 Lesson 6G3 リス ト 項 目 を ファ イル に 書き 出す 
3 時限 目 Lesson 64 イメ ー ジ ビュ ー ワ ー の 作成 


ソン ソフトウェア ラン チャ ー の 作成 


] 時 限 目 Lesson 55n) メイ ン モ ジュ ー ル の 作成 
時 限 目 Lesson 25/e セッ ト ア ッ プ モジ ュー ル の 作成 


いろ いろ な テク ニッ ク 


] 時 限 目 Lesson OB コモ ンダ イア ログ ボッ クス 
時 限 目 Lesson 67 マル チ メ デ ィ ア を 使う 
LesSOn つ 8B コー ド で サウ ンド ファ イル を 再生 する 
3 時限 目 Lesson GO9 デー タコ ント ロー ル 
4 時限 目 Lesson 30 タフ 付き ダイ アロ グ ボ ックス 
5 時限 目 LesSSon 31 フォ ー ム テン プレ ー ト の 活用 


デバ ッ グ と エラ ー 処 理 
] 時 限 目 Lesson 32 変数 の ウォ ッ チ を 使う 


時 限 目 Lesson 33 ブレ ー ク ポイ ント を 使う 
3 時限 目 Lesson 34 エラ ー 処 理 を 使う 


実行 ファ イル の 作成 と 配布 


] 時 限 目 Lesson 35 EXE ファ イル の 作成 
時限 目 Lesson 36n) バー ジョ ン と 作成 情報 を 設定 する 
3 時限 目 Lesson 36e ディ スト リ ビ ュ ーション ウィ ザー ド 
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ActiveX コン トロ ー ル を 作る 


ActiveX コン トロ ー ル の 概要 

1 時 限 目 Lesson 37n) スロ ッ ト マ シン コン トロ ー ル の 作成 

ど 時 限 目 Lesson 37s) ActiveX コン トロ ー ル の 組み 込み と テス ト 
3 時 限 目 Lesson 38 ActiveX コン トロ ー ル を HTML に 組み 込む 
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用 語 

関数 リフ ァ レ ンス 

ASCII 文字 コー ド 一 覧 
テー タ 型 一 覧 
エラ ー 番 号 一 覧 

プロ ジェ クト ファ イル の 形式 
ショ ー ト カッ ト 一 覧 

練 泊 問題 の 解答 


介 胃 陰 *s 


うら 6 1 


うつ 6 ど 
う 64 
う /4 
80 
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人 410 
人 1 ど 
全 1 ど 
415 


人 4 ココ 





Visual Basic を 使っ て Windows の プロ グラ ム を 作成 する に は 、Visual Basic 
が どの よう な も の で 、 ど うい う 操 作 を 行っ て いけ ば よい の か を 知っ て お く 必 要 が あ 
り ま す 。 そ こ で 、 実際 の プロ グラ ム 作 成 に 入る 前 に 、 オ オリエンテーション を 兼ね て 
予備 知識 を 身 に 付け て お きま し ょ う 。 
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Visual Basic へ よう こ 


Microsoft Visual Basic6.0 は 、 だ れ で も 簡単 に Windows95/98/Windows NT の 
プロ グラ ム を 作成 で を る 、32 ビッ ト プ ロ グラ ム 開 発 ソ フト で す 。 ここ で は 、Visual 
BasiC で ご どう いう こと が で きる の か 、 説 明 し て お きま す 。 








と csc たこ 





Visual Basic は 、 Windows の プロ グラ ム を 開発 する 目的 で 作成 され た プロ グラ ム 作 成 ソ 
フト (プロ グラ ム 開 発言 語 ) で す 。Windows 3.1 の 時 代 に 最初 の バー ジョ ン が リリ ー ス ミ 
れ ま し た が 、 そ れ ま で Windows の プロ グラ ム を 作成 する に は 、C 言 語 か Pascal (パス カ 
ル ) 言語 で 、Windows の |「API (Application Programming Interface) |」 を 呼び 出す な ど 
で 、 ア プリ ケー ショ ン を 作成 し て いま し た 。 

「 API] と いう の は OS (Windows) が 用 意 し て いる アプ リ ケ ー シ ョ ン 用 の 共通 コマ ンド 
の 集まり で す が 、 こ れ を 扱う こと は 、 プ ログ ラマ に と っ て 大 変 炉 雑 な 作業 で 、 複 雑 な コー 
ド の 記述 と Windows に 対す る か な り 高 度 な 知識 を 求め られ て いま し た 。 

て で こ で 、 従 来 か ら 定 評 の あっ た コン ピュ ー タ 学習 用 プロ グラ ミン グ 言 語 「Basic 
(Beginners AllLpurpose Symbolic Instruction Code) 」 を ベー ス に 、Windows の プロ グラ 
ム を だ れ で も 簡単 に 作成 で きる よう に 改良 し て 作ら れ た の が 、 Visual Basic で す 。 

Windows の 外観 (ユー ザー イン ター フェ イス ) を 、 コ ント ロー ル と 呼ば れる 部 品 を 使 
っ て 作成 する こと で 、 見 た まま の ユー ザー イン ター フェ イス を 画面 上 に 組み 立て る こと が 
で きま す 。 ま た 、Windows の API も 、 コ ント ロー ル や メソ ッ ド 、 プ ロ パ ティ な ど に 割り 
当て る こと で 、 よ り 直 感 的 で わか りや すい 記述 を 使っ て 、 プ ログ ラム を 作成 で きる よう に 
な っ て いま す 。 


刀 姓 Io | | 





Visual Basic の ひろ が る 世界 





Visual Basic は 、 当 初 は 単独 で 動作 する プロ グラ ム の 作成 が 主 な 機能 で し た が 、 バ ー ジ 
ョ ン を 重ね る ご と に その 機能 を 強化 拡張 し て きま し た 。Windows の 進化 と と も に 、 通信 








Visual Basic へ よう こ 


機能 や デー タベース へ の アク セス 機能 、 イ ンタ ーネット 機能 な ど を 組み 込み 、 こ れ ら に 対 
応 し た プロ グラ ム 開 発 が で きる よう に な り ま し た 。 

Microsoft の 最新 の テク ノロ ジー で ある 「ActiveX コ ント ロー ル 」 の 作成 機能 も 付 備 さ 
れ て いま す 。 複雑 な 機能 を コン トロ ー ル (部 品 ) 化す る こと で 、 再 利用 可能 な 汎用 性 の 高 
い プ ログ ラム を 作成 可能 で す 。 

バー ジョ ン 6.0 で は 「DHTML」 や |「WebClass」 
と 呼ば れる コン ポー ネン ト 作 成 ま で も サポ ー ト し 、 
Visual Basic の アプ リケーション を 作る の と 同じ 感 
覚 で ダイ ナミ ッ ク な Web コ ン テ ン ツ を 開発 で きる 
よう す ( 紅 か り ま し か た 。 また な デー タベース と 運 提 し 
と 高度 な アプ リケーション 開発 の 機能 も 強化 され 
て いま す 。 





Visual Basic 6.0 で で きる こ 





Visual Basic に は 、 標 準 コ ント ロー ル と 呼ば れる 、 コ マン ド ボ タ ン や リス ト ボ ックス な 
どの Windows の 標準 機能 を コン トロ ー ル 化し た も の が 装備 きれ て いま す 。 これら の コン 
トロ ー ル を 使う こと で 、 普 段 の Windows の アプ リケーション と 同じ よう な 外観 と 機能 を 
作成 で きる よう に な っ て いま す 。 プ ログ ラム か ら フ ァイル を 開い た り 、 保 存 し た りす る こ 
と も 自由 で すし 、 グ ラフ ィ ッ ク 関 係 の メソ ッ ド を 使う こと で 、 お 絵描き プロ グラ ム を 簡単 
に 作成 し た りす る こと が で きま す 。 その他 に も 、 以 下 の よ うな 多彩 な 機能 を 提供 する 
[ActiveX| が 拡張 機能 と し て 組み 込ま れ て いま す (Professional Edition 以上 ) 。 


@ 「 マ ル チ メ ディ アコ ント ロー ル 」 を 使え ば 、 サ ウン ド フ ァ 
イル の 再生 や AVI ビデ オ の 再生 、CD-ROM ドラ イブ の 制 
御 な ど 、 マ ル チ メ ディ ア 機 能 を 組み 込め ます 。 

@ 「 デ ー タ コン トロ ー ル 」 を 使え ば 、AccesS な どの デー タ 
ベー ス フ ァ イル に 容易 に アク セス し 、 デ ー タ の 読み 書き が 
で ます 。 

@ 「 コ ミュ ニケ ーション コン トロ ー ル 」 を 使う と 、 シ リア ル 
ポー ト を 通じ て 通信 機能 を 装備 で きま す 。 

@「 イ ンタ ーネット トラ ンス ファ コン トロ ー ル 」 は 、 イ ンタ 
ーネット で 使用 され て いる ハル ハイパー テキ スト 転送 プロ トコ 
ル (HTTP) や 、 フ ァイル 転送 プロ トコ ル (FTP) の 機能 
を 提供 し ます 。 










回 中 同 四 


国 還 マル チ メ デ ィ ア 還 証 
コン トロ ー ル 





この よう に 、 コ ント ロー ル と 関連 する プロ パテ ィ 、 メ ソ ッ ド 、 イ ベン ト を 組み 合わ せ て 、 
Windows の 持っ て いる 多く の 機能 を 、Visual Basic の プロ グラ ム に 組み 込む こと が で きま 
す 。 Visual Basic を 学習 する こと に よっ て 、 そ の 知識 や 技術 を Windows 用 ソフ ト 開 発 の 

様々 な 分 野 に 応用 する こと が で きる の で す 。 
オリ エン テー ショ に 3 











Visual Basic の プロ グラ ミン グ と は 


ここ で は 、Visual Basic の プロ グラ ム 開 発 の 特徴 を 、 他 の 言語 と 比較 し な が ら 紹 介し 
ます 。 多彩 な 機能 を プロ グラ ム に 簡単 に 組み 込ん で 開発 で きる Visual Basic で す が 、 
[簡単 ] と は いえ 、 あ る 程度 プロ グラ ミン グ に まつ わる 知識 は 必要 で す 。 








Yi Basic と 他 の 開発 言語 と の 違い 





Visual Basic は 、 コ ン ビ ュー タ の 動作 原理 を 学習 する た め に 開発 され た Basic 言語 を べ 
ー ス に 作成 され て いま す 。 し か し 、NEC 社 の N88-Basic や Microsoft 社 の MS-DOS 用 
Basic と 違い 、Windows の プロ グラ ム 開 発 を 目的 と し て 作成 し 直さ きれ て お り 、 プ ログ ラミ 


ング スタ イル は ずい ぶん 違う も の に な っ て いま す 。 


@ コ ユー ザー イン ター フェ イス の 作成 が 簡単 ドラ ッ グ する だ け で 

仁 米 の Basic で は 、 画 面 の 作成 は すべ て コー ド で 行っ 較 回 本 因 ーーーーー ー ーー 1 
て いま し た 。 例 えば 、 プ ログ ラム に ボタ ン を 追加 し た い 5 
と き は 、 ま ず そ の ボタ ン を コー ド に よっ て 描画 し な けれ 上 ド 請 
ば な り ま せん で し た Oo 貼 
Visual Basic で は 、 ユ ーー ザー インター フェ イス の 作成 衣 軸 
は すべ て 部 品 化 さ きれ て いま す 。 ボ タン を 付け た けれ ば 、 罰 
ツー ル ボ ックス か ら ボ タン の 「 部 品 ] を マウ ス を 使っ て 議 
ドラ ッ グ する だ け で 組み 立て る こと が で きま す 。 5 





劉 刀 理 ご と に コー ド を 別々 の 場所 に 記述 
合 来 の Basic で は プロ グラ ム の 起動 か ら 終 了 ま で の コー ド を 、1 つ の ファ イル に 、 動 作 
の 順番 に 記述 し て いま し た 。 場所 に よっ て は ラベ ル を 使っ て サブ ルー チン を 組み 立て 呼び 
出す スタ イル を 取っ て いま し た 。 
Visual Basic で は 、 プ ログ ラム の 動作 コー ド は 、 各 コ 暫 -- io 
keMdne40 1 イベ ント プロ シー ジャ 」 と 呼 軒 ご 

ば れる 場所 に 記述 し 、 ユ ー ザ ー の 操作 に 対応 する 形式 で 目 . gs: 

処理 を 組み 立て て いき ます 。 フ ァイル の 構成 も 、[ プ ロ 旨 


ジェ クト 」 と いう 管理 形態 で ソー スコ ー ド や 画面 (フォ 3 ンー ベッ a と 
ー ム ) を 保存 し ます 。 間 コー ド を 記述 





佐 来 の Basic 言語 と 比べ て 、 大 幅 に 変わ っ て いる 部 分 は あり ます が 、 そ れ は プロ グラ ム 
が 動作 する 環境 が ウィ ンド ウシ ステ ム に な っ た こと が 大 きく 、 言 語 と し て は より 記述 が し 
や すく 、 理 解 し や すい よう に 改良 され て いる の が 特徴 で す 。 

ステ ー ト メン ト な ど は 従来 の Basic 言語 と 同じ 機能 や 名 前 を 継承 し て いる 部 分 も あり ま 
す の で 、Windows の プロ グラ ム を 開発 する た め に 、C/C++ 言語 や Pascal 言語 を 最初 か ら 
泊 答 する より も 、 短 時 間 で マス ター で きる メリ ッ ト を 持っ て いま す 。 
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2 ョ ン と は 





Windows の プロ グラ ム は 、 い っ た い ど の よう に 動い て いる の で し ょ う ? 特徴 は 大 き 
く 2 つ あり ます 。 

1 つ 目 は 、Windows で は 、 常 に Windows の シス テム と プロ グラ ム (アプ リケーション ) 
が 「 メ ッ セ ー ジ 」| を 通信 し な が ら 動 作 し て いま す 。 例 えば 、Excel の セル を クリ ッ ク す る 
と 、「 ユ ー ザ ー が マウ ス の ボタ ン を クリ ッ ク し た 」 と いう 情報 は 、Windows の シス テム が 
把握 し ます 。 そ し て 、Excel に 対し て | ユー ザー が マウ ス の ボタ ン を クリ ッ ク し た 」 と い 
う 情報 を 通知 し ます 。「 マ ウス クリ ッ ク | の 通知 を 受け 取っ た Excel は | セル を 選択 する 」 
[メニ ュー を 表示 する 」 と いう よう な こと を 状況 に 応じ て 割り 振り 、 ユ ー ザ ー に 結果 を 表 
示し ます 。 


アプ リケーション の 動作 : Excel の 場合 









ユー ザー が マウ ス を | 
クリ ッ ク す る | 


ia DP 2 
メッ セー ジム A : 


「「 マ ウス が クリ ッ ク さ れ た ! 」 





② | マウ ス が クリ ッ ク さ ざれ た ! 』 
と いう メッ セー ジ A を 0S が 取得 


③ Windows か ら Excel へ 
メッ セー ジ A が 通知 


④ | セル 上 で マウ ス が クリ ッ ク さ れ た ら 
セル を 選択 ] こと いう 処理 を 実行 


『 
『 
' 
上 





オリ エン テー ショ mn 











2 つ 目 は 、Windows に は 、|「 API」 と 呼ば れる 基本 命令 の 集まり が 用 意 き され て いま す 。 
API と は 、| Apprication Programming Interface」 の 略 で 、Windows の 持っ て いる 機能 
を 公開 し 、 プ ログ ラミ ング 言語 か ら 利 用 で きる よう に し た イン ター フェ イス 機能 の こと で 
す 。 これ は 共通 仕様 と し て 定まっ て お り 、Windows の 上 で 動作 する プロ グラ ム (アプ リ 
ケー ショ ン ) は 、 ウ ィ ン ド ウ 梓 や コマ ンド ボタ ン な ど 、 す べ て この API を 利用 し て 作成 
され て いる た め 、API を 利用 し た アプ リケーション は 「Windows ら し く 」 な る と いう わ 
け で す 。 






典型 的 な Windows アプ リケーション 


人 ee い 1 し ・・! "の - 、 .… Ws 
Windows の プロ グラ ム は 、 い っ た い ど の よう に 動い て いる の で し ょ う ? 特 環 は 大 きく 2 
つ あ り ます 。 人 , 
















③ ツ ー ル バー 
〈④ コ ン ボ ボッ クス 

⑤ ス クロ ー ル バー 
⑥ テ キス ト ボ ックス 
⑦ ダ イア ログ ボッ クス 
⑧ ス テー タス バー 


1 つ 月 は 、Windows で Ge コ ーション ) 
が 「 メ ッ セ ー ジ 」 を 通信 詞 
























と は 、「Appricetuon Programming In 
| 聞 し . プロ グラ ミン グ が 言語 か ら 利用 で きる よう に し た イン ター フェ イス 機能 の こと で す 。 

これ は 共通 仕様 と し て 定まっ て お り 、Windows の 上 で 動作 す る プロ グラム (アプ リ ケ ー シ 
| ョ ン ) は 、 ウ ィ ン ド ウ 栓 や コマ ンド ボタ ン な ど 、 す べ て この API を 利用 し て 作成 され て い 
| る た め 、API を 利用 し た アプ リケーション は 「Windows らし く 」 な る と いう わけ で す 。 - 
革 | 半 上 2 
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し か し 、 例 えば 、API を C 言 語 で 扱う に は 、Windows の 動作 原理 や 機能 に つい て か な 
り 詳 し い 知 識 と と も に 、API を C 言 語 か ら 使用 する 複雑 な 方 法 を 熟知 し て いな いと 利用 で 
きま せん 。 

て こ で 、Visual Basic で は 、 コ ント ロー ル や プロ パテ ィ 、 メ ソ ッ ド 、 イ ベン ト と いっ た 
ンス テム を 用 意 し 、 こ れ ら が 複雑 な API へ の アク セス を 「 代 行 」 し て くれ ます 。 そ の た 
め 、 Visual Basic プロ グラ マ が API に つい て 詳細 を 知ら な く て も 、「Windows らし い | プ 
ログ ラミ ング が で きる よう に 設計 され て いま す (も ちろ ん 京 達 し た Visual Basic プロ グラ 
マ は API を Visual Basic か ら 利 用 する こと も 可能 で す )。 

これ は 、 海 外 に 行く の に パッ ケー ジ ツ アー を 利用 する の か 、 個 人 旅行 に する の か を 選択 
する の と 似 て いま す 。 

前 者 は ホテ ル や 航空 券 な ど を 旅行 会 社 が 準備 し て くれ ます が 、 後 者 は そ を うい っ た こと を 
目 分 で すべ て 手配 し な けれ ば な り ま せん 。 も ちろ ん 、 個 人 旅行 に は それ だ け 自 由 度 が 大 き 
く 身 軽 と いう 点 も あり ます が 、 は じ め て プロ グラ ミン グ と いう 「 海 外 」 ヘア クセ ス し よう 
と し て いる ビギナー な ら 、 ま ず パ ッ ケ ー ジ ツア ー か ら は じ め て みる の が よい の で は な いで 
し ょ うか 。 物足りな く な っ た らい つ で も 「 個 人 旅行 ] へ 踏み 出す こと が で きま すし 、 そ の 
と きも ツア ー で の 経験 や 知識 が きっ と 役に立つ は ず で す 。 








Visual Basic の プロ グラ ミン グ と 


Visual Basic の 場合 | C な どの 場合 


Win ホテ ル | | Win 航 空 | | Win レ スト ラン | | | Win ホ テル Win レス トラ ン | 
| 















[Visual Basic」 旅行 会 社 


C/Pascal 
(プロ グラ マ ) 





ユー ザー (プロ グラ マ ) 


| 
Visual Basic と わか りや すい 言葉 で 交渉 で | 
きる の で プロ グラ マ の 人 負担 が 軽い | 


も ーーー ニーーーーーーーーーーーーーーーーーーーーーーーーーーー ーー ボーーーーーーーーーー ペ ーーーー ペ ーー ニーーーーーーーーーーーーーーーーーーー ーーーーーーーーーーー…・ ー ーーー ーーーーーー 


通訳 は いる が 「 直 接 交 渉 ] に な る の で 
それ な り の プロ グラ マ の 技量 が 必要 


イベ ント 駆動 型 ブ ログ ラミ ング 





Windows の プロ グラ ミン グ の 特徴 の 1 つ に 、| イ ベン ト 駆 動 型 プロ グラ ミン グ 」| が あり 
ます 。 例 えば 、 こ れ ま で の Basic プロ グラ ム で は 、 ユ ー ザ ー の 選択 を プロ グラ ム の 側 で 用 
意 し 、 ユ ー ザ ー に どの 操作 を する の か を 強制 的 に 選択 させ て いま し た 。 例え ば メニ ュー を 
3 つ 用 意 し 、| どれ か を 選ん で くだ さい 」 と いう プロ グラ ム の 作成 スタ イル で す 。 


従来 の BASIC プロ グラ ミン グ の 典型 例 
好き な プログラミング 言語 は どれ で すか ? 


1 。 1sua1 Ba8+1C 
。 お 
3 。 aa る 


(数 字 キ ー を 押し て くだ さい ) _ 


し か し 、 Windows の アプ リケーション で は 、 ユ ー ザ ー が ズ ァ イル を 開き だ いと き に は 、 
[開く ] コマ ンド を 選択 する と いっ た 様 に 、 和 目 分 の 好き な と き に 好き な 操作 が で きる よう 
に な どら て ゅ ゆま す 。 し た が っ て 、 プ ログ ラム 抽 と し て は ユー ザー が 操作 で きる イツ ッ タープ ェ 
イス を あら か じ め い くつ か 用 意 し て お き 、 そ れ ら の イン ター フェ ー ス に 変化 が あっ た と き 
に 処理 を 組み 立て て いき ます 。 

その た め に 、 プ ログ ラム の 記述 も 、 ユ ー ザ ー が 行う 操作 (これ を 「 イ ベン ト 」 と いい ま 
す ) に あわ せ て 作成 し て いき ます 。 具体 的 に は 、 ユ ー ザ ー が コマ ンド ボタ ン を 押し た と き 
に は 、A の 処理 を 実行 し 、 メニ ュー が 選択 きれ た と き は B の 処理 を 実行 きせ る 、 と いう 記 
述 方 法 に な り ま す 。 ユ ー ザ ー の 「 イ ベン ト 」 に よっ て プロ グラ ム が 「 駆 動 (動作 )] する 、 
つま りこ れ が 、「 イ ベン ト 駆 動 型 プロ グラ ミン グ 」| と 呼ば れ て いる も の で す 。 

ユー ザー イン ター フェ イス に 起こ る 可能 性 の ある |「 イ ベン ト 」 は 、 フ ォ ー ム や コン トロ 
ー ル な どの Visual Basic の 部 品 1 つ 1 つ に あら か じ め 用 意 き れ て いま す 。 これら を うま く 
組み 合わ せ て 、 イ ベン ト に 対す る アク ショ ン を 作成 し て いく の が 、Visual Basic の プロ グ 
ケミ ング スタ ダル で す 。 


オリ エン テー ショ 








「 イ ベン ト 駆 動 型 | の プロ グラ ミン グ 





いで い トー リーン ーー で サテ スー ペ た ス デューー ペ パタ よー す さこ ミッ な いや も タミーー ャ ーー スッ 










コマ ンド ボタ ン に 










① ユ ー ザ ー が マウ ス を 


CllckK イ ベン ト が 11⑨Click イベ ント (④ 処 理 結 果 の 
クリ ッ ク す る 発生 する の コー ド を 実行 表示 





送 に 、 用 意 き れ て いな い イ ベン ト を 扱う こと は 
で きま せん が 、 他 の イベ ント が 相互 に カバ ー し あ 凡 
っ て いる の で 不便 で 困る と いう こと は あり ませ ん 。 凍 | ee: 
例え ば 、 あ り 得 な いこ と で す が 「 コ マン ド ボ タ ン | 較 加 講 
を 押さ なか っ た と き | と いう イベ ント を 使い た い 購 


と 思っ た と し て も 、 コ マン ド ボ タ ン に は そう いう 風 必要 な イベ ント は 骨 
トム Ab トル 用 意 さ れ て いる 胃 





ド ボ タ ン を 押さ な い | と いう の は 、 な に も し な い 
時 か 、 他 の ボタ ン や メニ ュー が 押さ きれ て いる 時 で すか ら 、 そもそも そう いう イベ ント を 用 
意 する 必要 が な いわ け で す 。 そ うい う 不 必要 な イベ ント は 最初 か ら 用 意 き れ て いま せん 。 


促 覚 的 ・ 対 話 的 な 機能 に よる 効率 的 な 開発 





Visual Basic は 、 そ の 名 の と お り ビ ジュ アル に プロ グラ ム を 開発 し て いく 言語 で す 。 
ユー ザー イン ター フェ イス の 構築 は 、 実 際 に 見 た まま の 形 で 動作 で きま す 。 イ ベン ト に 
対応 する コー ド の 記述 も 、 リ スト ボッ クス か ら 必 要 な オブ ジェ クト と イベ ント を 選ぶ だ け 
で す 。 プロパ ティ の 設定 は 、 プ ロ パ ティ ウィ ンド ウ に ある 一 覧 表示 され た リス ト か ら 値 を 
選ん で 設定 し ます 。 定数 が 決ま っ て いる プロ パテ ィ で は 、 値 その も の が リス ト 表 示さ れ 、 
場合 に よっ て は ダイ アロ グ ボ ックス が 開き 、 対 話 的 に 設定 で きま す 。 こ の よう に 、 プ ログ 
ラマ が 行う べき 操作 を わか りや すく し て 、 開 発 に か ける 負担 を 軽く し 、 効 率 的 な アプ リ ケ 


ーション 開発 が で きる 環境 を 提供 し て いま す 。 


Visual Basic に よる プロ グラ ム の 開発 手順 


① 外 観 を デザ イン する 請 識 箇 人 生 に 必要 な 


コー ド を 記述 する 












④ デ バッ グ 














Visual Basic の プロ グラ ミン グ と 





最低 限 知 っ て お きた い 用 語 





Visual Basic を 習得 する うえ で 、 い くつ か の 専門 的 な 用 語 や 概念 の 理解 は 避け て 通れ な 
いも の で す 。 現 時点 で は これ ら を 「 完 全 に 理解 する 」 必要 は あり ませ ん が 、「 な ん と な く < く 
わか る 」 程度 に は 慣れ て お く 必 要 が ある で し ょ う 。 詳し く は レッ スン の 中 で 、 実 際 に プロ 
グラ ム を 作成 し な が ら 解 説 し て いき ます が 、 予 備 知 識 と し て 、 こ こ で は 特に 重要 な 専門 用 
語 を 中 心 に 説明 し て お きま す 。 


@ イ ベン ト 


@⑮ オ ブ ジ ェクト ・・・ 


何 コン トロ ー ル ・・・ 


旬 ス テー トメ ント 


@ フ ォ ー ム 


旬 プ ロジ ェクト 


ユー ザー が 人 行っ た 操作 全般 の こと で す 。 コ マン ド ボ タ ン を 押せ 
ば 「Click」、 マ ウス を 動か せ ば 「MouseMove」 と いう イベ ン 
ト が 発生 し ます 。 


* プ ォ ー ム や コン トロ ー ル な ど 、 プ ログ ラム を 形成 する すべ て の 


要素 を オブ ジェ クト と 呼び ます 。 
プロ グラ ム 言 語 で 作成 され た 記述 の こと 。 ソ ー ス コー ド と も 呼 
び ま す 。 


: プ ログ ラム の 外観 や 動作 を 形成 する 部 品 を コン トロ ー ル と 呼び 


ます 。 機 能 に よっ て 、 何 種類 も 用 意 さ れ て いま す 。 


: プロ グラ ム の 流れ や 処理 を 制御 する 命令 で す 。 


プロ グラ ムウ ィ ン ド ウ の ベー ス に な る も の で す 。 ウ ィ ン ド ウ の 
外観 は 、 こ の フォ ー ム に コン トロ ー ル を 組み 込ん で 作成 し ます 。 


:Visual Basic で 作成 し た プロ グラ ム に 使用 する ファ イル を 管理 


する 形態 で す 。Visual Basic で は 、 1 つの プロ グラ ム が 複数 の 
ファ イル で 形成 され る た め 、 そ れ ぞ れ の ファ イル の 依存 関係 を 
把握 し 、 管 理 す る た め に 「 プ ロジ ェクト ファ イル 」 が 用 意 さ れ 
て いま す 。 

コン トロ ー ル や フォ ー ム の 属性 を 設定 する た め に 使用 され ます 。 
多く の コン トロ ー ル は 、 た くさ ん の プロ パテ ィ を 持ち 、 こ の 値 
を 変え る こと で コン トロ ー ル の 人 外観 や 動作 範囲 な ど を 設定 し ま 
ず 。 


…… サ ブル ー チ ン の こと で 、 プ ログ ラム の コー ド を 役割 ご と に 小さ 


な 固まり に まとめ た も の で す 。 

オブ ジェ クト を 直接 操作 する た め に 用 意 さ れ た 機能 で す 。 

プロ グラ ム を 小 規 模 な か た まり に 分 けた も の で す 。 プ ログ ラム 
の 処理 を 内 容 に よっ て モジ ュー ル 単 位 に 分 ける こと で 、 コ ー ド 
の 管理 が し や すく な り ま す 。 

式 の 中 で 使用 する も の で 、 あ る 値 を 指定 し て 実行 する と 、 そ の 
結果 を 返し て きま す 。 

テー タタ を 貯え て お く 「 入 れ 物 」 の こと で す 。 プ ログ ラム の 処理 
の 中 で 、 式 の 結果 を 一 時 的 に 保管 する 場合 な ど に 使用 し ます 。 


オリ エン テー ショ 








プロ グラ ミン グ を は じ め る 前 に 


本 書 の 特徴 と CD-ROM の 使い 方 を 説明 し ます 。 








本 書 は 、 初 め て Windows の プロ グラ ム を 作成 し よう と する 読者 や 、 他 の プロ グラ ミン 
グ 言 語 は 使っ た こと が ある が Visual Basic を 使う の は 初め て 、 と いう ユー ザー を 対象 に 、 
すぐ に Visual Basic で Windows の プロ グラ ム を 作成 で きる よう に 、 随 所 に 工夫 を 凝 らし 
た 構成 に し まし た 。 

全体 の 流れ は 、「 プ ログ ラミ ング セミ ナー」 の よう に 、 自 階 的 に Visual Basic の 使い 方 
や テク ニッ ク を 説明 し 、 無 理 な く 習 得 で きる ペー ス に 設定 し て いま す 。 サ ンプ ルプ ログ ラ 
ム を レッ スン ご と に 分 け 、 約 10 日 で 全体 を 学べ る よう に 構成 し まし た 。 レッスン は 大 き 
く 分 け て 4 つ に 構成 きれ て いま す 。 


【 レ ッ ス ン の 構成 】 
① サ ンプ ルプ ログ ラム の 説明 
サン ブル プロ グラ ム の 動作 と ポイ ント を 解説 し ます 。 
② ぐ コン トロ ー ル や プロ パテ ィ の 設 
プロ グラ ム 作 成 手順 を 、 豊 富 な 画面 を 使っ て 操作 の 流れ を 1 つ ず つ 説 明 し ます 。 
③ コ ー ド の 解説 
プロ グラ ム の コー ド を 1 行 ず つ 解 説 し て いき ます 。 
《④ ま と め と 練習 問題 
レッ スン の まとめ と 練習 問題 を 付け まし た 。 


紅 介 し て いる サン プル プロ グラ ム の コー ド は 、 人 入門 者 が 混乱 し な いよ うに 、 説 明 の ポイ 
ント を 重点 的 に し ぼっ て 、 な る べく 少な い 行 数 で 作成 し まし た 。 こ れ ら の サン プ ブル は コン 
パク ト で 理解 し や すい の で 、 自 分 で プロ グラ ム を 開発 する 際 に 応用 する こと が で きま す 。 

本 書 で は 、Windows の ソフ ト を 使い 慣れ て いる 人 で あれ ば お そら くど な た で も 、 
Lessonl か ら す ぐに Visual Basic の プロ グラ ム を 作り は じ め る こと が で きる で し ょ う 。 征 
来 の プロ グラ ミン グ 人 解説 書 の よう に 「Visual Basic と は な に か 」 と いう その 概要 や 概念 の 
説明 を 延々 と 読ま され 、 プ ログ ラム を 作る 前 か ら う ん ざり し て し まう よう な こと は あり ま 
せん 。 そ うい っ た 抽象 的 な 概念 は 重要 で す が 、 か と いっ て それ ば か り に 足 を 取ら れ て いて 
も 本末転倒 で す 。 本 書 で は 、 そ うい っ た | 解説 | は レッ スン の 最後 に まとめ て 、 ま ず | 作 
る こと 」 を 楽し ん で も ら う こと を 主 と し た レッ スン 構成 に し て いま す 。 

ちょ っ と 複雑 な 理屈 や Visual Basic 独特 の プロ グラ ミン グ 作 法 に と ま ど う こと が ある か 
も しれ ませ ん 。 も し そう な っ て も 、 と りあ え ず は 後回し に し て 、 実 際 に プロ グラ ム を どん 
どん 作り な が ら 前 進 し て いっ て くだ さい 。Visual Basic の 世界 に 慣れ て いけ ば 知識 も 自然 
と 身 に 付く は ず で す 。 本書 は 「 作 りな が ら お ぼ え た い 人 |」 と 「 お ぼ え て か ら 作 り た い 人 」 
の どちら に も わか りや すい よう に 書か れ て いま す 。 








LO の ジウ 


ング を は じ め る 前 


① サ ン ブ プル プロ グラ ム の 説明 お よび コン トロ ー ル と プロ パテ ィ の 設定 





Lesson17 状況 感知 型 メ ニュ ー を 作成 する 









ee マー いて ュー ツー 


状況 感知 型 メ ニュ ー を 作成 する 





= 


メニ ュー コン トロ ー ル の [Visible] ブロ バテ ィ を 使う 方 法 を マス ター ※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 | | 
し ます 。 1 
ま 
今回 作成 する プロ グラ ム [ 林 準 ] ツー ル バ ー の [メニ ュー エディ タ ] | を | 
クリ ッ ク す る 
右 ク リッ ク で ポッ プア ッ プ 1 
メニ ュー が 表示 され る 
[メニ ュー エディ タ ] ダイ アロ グ ボ ックス で 、 次 の レミ - 還 
メニ ュー を 設定 する 本 | 
: ミニ ュー を 設定 する 方 請 ' 
本 表示 : に つい て は 、Lecssonl3 を 


| 参 題 し て くだ さい 
(Name 1 に [は 1 


IDMFile 
開く 1 IDMOpen 
1 





| FileSeparator 





保存 
終了 | IDMExit 
示 


表示 IDMView 
フォ ー ム の 表示 IDMForm 





Form ご が 表示 され る 













4e93w2P | つ フィー ム の 表 エ < < 1 
名 締 D fowr こ こ ら キテ 上 
は は 9905 目 wrt あ 生 な っ 引 
すず | 上 | 業 く 中 | 


JAwee F も dmeonh cs 
「 7 の 。 と 和 和 D 。。 じ amo  20957Ko 


ティ ル 










Windows 95 の アプ リケーション で よく 使わ れ て いる ポッ プア ッ 
プ メ ニュ ー は 、 状況 に 応じ て メニ ュー 項目 が 変化 し ます 。 

配置 し た メニ ュー コン トロ ー ル の 【Visible] プロ バテ ィ を 使う と 、 
この 状況 に 応じ て 変化 する ポッ プア ッ プ メニ ュー を 作成 で きま す 。 
この プロ グラ ム は 、 ポ ボ ポップ アッ プ メ ニュ ー の と きだ け 専 用 の メ - 
ュー を 表示 する プロ グラ ム で す 。 2 つの フォ ー ム を 持ち 、 そ れ ぞ れ 
が 別 の ポッ プア ッ プ メニ ュー を 表示 し ます 





攻 は 「 キ ー ワ ー ド 」 
ーー | を 表し て いま す 


ペペ ーーー ニー ジー て ーー ンー の mmm ペア ンー つの > タン mm ンー アニー ピー ター この ター ニー の emm あー ンー ンー ニー ペー ンー アニ ーーー ニー ジー ハー こっこ 





Lesson17 状況 感知 型 メ ニュ ー を 作成 す 

































Form1:IDMSave-Click 
- Form1:Form-MouseDown iDWSsve 間 。 。 … ペ  … 
Private Sub rpwegave Click() 。。。 寺 
Foe m | MouseDown テマ MsgBOx * メ ニュ ー が 選択 され まし た <* 
Private Sub rorm MouseDown (Button As Tnteger。 Sbhift As Tnteoger。 nd Sub 
メ As Sing1e, Y As Sing1e ) 
ェ エ f Button = 2 Then -Form2-:Form-MouseDown 
『i1eSBepa エ ra モエ.Visib1e = True 
TDMOpen .Visib1e = エエ ue em 


TDMSave .Visib1e = True 
PopupMienu TDMFi1e 

TDMOpen .Visib わ 1e = Fa1se 
TDMSave .Vigi わ 1e = Fa15se 
『i1eSepa エ a て Or .V1sib1e = Fa1se 


Private Sub Form NMouseDown ( But て on As Tnteger。 Shifc As Tnteger, 
X As Sing1e, Y gs Sing1e) 
エ TE Butctton = 2 Thben 
TDMEG1it Enab1ed = True 







到 nd エモ PopupMenu TDMEG1t 
SadG Bob TDMEdit .Enab1ed = ra1se 
Form1:IDMExit-Click 








ID 輔 Exm マ | Cck テ 


どの イベ ント プロ シー ジャ 


し らら 。。 。  . 抽 に コー ド を 記述 する の か バ 
Form1:IDMForm-Click に と 目 Ps わ か り よ ま す 








ロロ TFC 


Private Sub TDNtPorm C1 ic ( Tndex 5 Tnteger ) 
Form2.Show 1 
End Sub 


間 半 コー 


riya モ @ sub TDWCEaki 意 = Cc1ick() 6 
Un1oad Porm2 
End Sub 


Form1:IDMOpen-Click 












iowoeen = ceo = ワン イシン シト アパ イス 
privyate Sub rpwopen click() 
MsgBox "メニ ュー が 選択 され まし た ・* コー ドウ ィ ン ド ウ で の ショ ー ト カッ ト 但 Ctr 和 HH ーーーー…ー クイ ッ ク ヒ ント 表示 
End Sub 人 @ Ctrl1F2 オプ ジェ クト リス ト ボ ッ 人 の Ci+Shift+l パラ メー タヒン ト 表 示 
クス の 選択 倫 CtrtJ…ーー… プロ バテ ィ ア メソッド 
で Tab イン デン ト 、 ま た は プロ の 一 覧 


ジェ クト リス ト 問 を 移動 人 @ Cr+Shift+J …・ 定 数 の 一 覧 





第 3 日 5 時 限 目 メニ ュー を 使 


オリ エン テー ショ 








3③ コ ー ド の 解説 


まき この プロ グラ ム は 、 ち ょ っ と 和 複 維 な 動き を し ます 





り プ ログ ラム 起動 時 は 、Forml だ けが 表示 きれ ます 。 こ の フォ ー ム に は 、[ フ ァ イ 
ル ] と [表示] の 2 つの メニ ュー が 組み 込ま れ て いま す 





ぅ Form1l の 上 で マウ ス の 右 ボ タン を 押す と 、 メ ニュ ー が ポ ボ ポップアップ し ます 。 こ の 
メニ ュー に は 、 フ ォ ー ム の 「【 フ ァイル ] メニ ュー に 加え て 、[ 開 く ] と 「『 保 存 ] メ 
ニュ ー が 追加 ほれ て いま す 





















3 [表示 ] メニ ュー か ら [フォーム の 表示 | を 選ぶ と 、 も う 1 つ の フォ ー ム 
「Form2| が 表示 され ます 。 こ の フォ ー ム は 「 モ ー ダ ル | (P133 参照 ) で 起動 する 
た め 、 こ の フォ ー ム を 閉じ な い 限 り Form1 の 操作 が で き 






















④ ま と め と 練 首 問題 





| きま [編集 | メニ ュー の 使用 状態 を 有効 に し た ら 、PopupMenu メ ソ ッ ド を 使っ て [ 編 
集 ] メニ ュー を 表示 させ ます 。 メ ニュ ー が ポップ アップ し た ら 、 再 び 「[ 編 集 ] メニ 
ュー を 使用 不可 状態 に 設定 し ます 
これ で 、 フ ォ ー ム の メニ ュー に な い メ ニュ ー 項 目 を 、 ボ ポップアップ ォ メニュー で 表 
示す る こと が で きま す 


PopupMenu TDMIEG1 て 。 vbPopupiMienuRigbt 上 But て On 
TDNEEGit . 正 na わ 1ed = Pa1se 








憶 人 プ メニ ュー の 表示 が 完成 し た ら 、 まとめ や や 練習 問題 が 


し ます 


[コビー] メニ ュー が 選択 きれ た 4 ゆめ る の) の 0) で 、 レッ スン 


め て いま す 


の 最後 に 知識 を 整理 
sl する こと が で きま す 


P ェ ivate Sub TDMCopy_ ご 1 


| 令 Form2 の 「[ 半 子 ] メニ ュー は 、Form2 自 身 を 閑 了 させ て 、 操 作 を Forml に 戻す 必 
要 が あり ます 。 ですから End ス テー トメ ント で プロ グラ ム を 終了 ミ せ る の で は な く 、 
Unload ステ ー ト メン ト で フォ ー ム を メモ リ か ら 削 除 (解放 ) する こと で 、Form2 を 
終了 ミ させ ます 

プロ グラ ム 自 身 の 終了 は 、Form2 を 義 じ た あと で 、Forml の [終了] メニ ュー で 
行い ます 


P エ ュ マ ya も e Sub TDMEx ふ tt C1 ふ ck() 
On1oad 『orm2 
nd Sub 


ミミ ミミ ミネ ネネ ミミ ネネ ミミ ネネ ネネ ネネ ネネ ネネ SSLSSSSSSDSSSSSSSSSSSSSSSSSSSSOSSOSSSSSSSSSSS 


【Unload ステ ー ト メン ト の 書式 ] 
Un1oad Ob]@ で 上 


Object アン ロー ド す る オブ ジェ クト 名 また は コン トロ ー ル 名 


トミ オミ ネネ ミミ ネネ ネネ ネ ミミ ミミ ミミ まま よ まま まま まま まま SSDSEESSSSESSSEE 





コー ド の 解 
図版 を 豊富 に 
て 1 行 ず つつ 解説 
し て いま す 










Lesson17 状況 感知 型 メ ニュ ー を 作成 す 


④) こ の Form2 に は 、[ フ ァイル ] メニ ュー だ けが 表示 きれ て で てい ます 。 し か し 、 フ ォ 
ー ム の 上 で マウ ス の 右 ボ タン を クリ ッ ク す る と 、[ コ ピー| メニ ュー が ボップ アッ 
プ き され ます 


と Gi 村 
人 を 了 





4 





マー 


ーー 





用 フォ ー ム の メニ ュー と ボ ポップアップ メ ニュ ー は 、 す べ て の メニ ュー を あら か じ め 
メニ ュー エディ タ で 作成 し て お きま す 
た だ し 、 最 初 か ら 表 示し て お く メ ニュ ー と 表示 し な い メ ニュ ー を 、 メ ニュ ー エ デ 
ィ タ の [表示 ] チェ ッ ク ポ ックス で 設定 し て お きま す 。 ポ ボッ プア ッ プ メニ ュー に 使 
う メ ニュ ー は 、[ 表 示 ] チェ ッ ク ボ ポッ クス の チェ ッ ク を は ず し て お きま す 。 こ うし て 
お く と 、 プ ログ ラム 実行 時 は [表示] チェ ッ ク ボ ックス に チェ ッ ク を 付け た メニ ュ 
ー の み が 表 示さ れ ま す 


で は 、 ま ず プ ログ ラム 起動 時 に 表示 され る Form1 か ら 説 明 を し て いき まし ょ う 

Forml の ボッ プア ッ プ メニ ュー は 、MouseDown イベ ント プロ シー ジャ を 使い ま 
す 。 最初 に 、If ス テー トメ ント を 使っ て ボタ ン の 種類 を 把握 し 、 右 ボタ ン が 押さ きれ 
た と きのみ 、 処 理 を 実行 する よう に し ます 。 こ の と き に 行う 処理 は 、 プ ログ ラム 作 
成 時 に メニ ュー エディ タ で [表示 ] の チェ ッ ク を は ず し た 、3 つ の メニ ュー コン ト 
ロー ル を [表示 ] に 設定 する こと で す 。 [表示 ] の プロ パテ ィ は 【Visible] で すか 
ら 、 各 コン トロ ー ル の 【Visiblel プロ パテ ィ の 値 を 「True」 に 設定 する と 、 こ れ ら 
の メニ ュー コン トロ ー ル は 表示 状態 に な り ま す 


エ よそ Buc て con = 2 Tbhen 
31eSepara も の Or.Visib1e = True 
TDMOpen .Visib1e = True 
TDMSave.Visible = Frug 


竹 メニ ュー を 表示 状態 に し た ら 、PopUpMenu メ ソ ッ ド を 使っ て メニ ュー を 表示 し 
ます 。 こ の と き 、 最 初 の 階層 の メニ ュー コン トロ ー ル 名 (オプ ジェ クト 名 ) を 析 定 
する と 、 次 の 層 の メニ ュー が 表示 きれ ます 


PopupMenu TDMF11e, vbPopupMenuRightBu て て の ロ 





第 3 日 5 時 限 目 メニ ュー を 使 








Lesson17 状況 感知 型 メ ニュ ー を 作成 す 


メニ ュー の 設定 ・ 操 作 は 、 あ くま で も ユー ザー が 使い や すい ) 形 で 作成 する の が 、 一 
番 で し ょ う 。 わ か りや すい ユー ザー イン ター フェ イス と 操作 性 は 、 プ ログ ラム の 買 を 
決め る と いっ て も 過言 で は あり ませ ん 。 

また 、Show メソ ッ ド を 使っ た フォ ー ム の 表示 は 、 ダ イア ログ ボッ クス の 表示 で よ 
く 使 う テ クニ ッ ク で す 。 


旧 「Lesson 1 7.vbp」 の プロ グラ ム の ボ ポップ アッ プ メ ニュ ー に 、Form2 
6 の 表示 用 メニ ュー 項目 「 こ の プロ グラ ム に つい て 」 を 追加 し て 、Form ら 
を 表示 する よう に し て くだ さい 。 
アノ Form2 を 、 イ メー ジコ ント ロー ル や ラベ ルコ ント ロー ル を 使っ て 、 き 
れい な ダイ アロ グ ボ ックス に 仕上 げ て くだ さい 。 
また 、 メ ニュ ー は すべ て 削除 し 、[OK] ボタ ン を 作成 し て この ボタ ン 
で Form2 を 閉じ る よう に し て くだ さい 。 


解答 は 巻末 に 一 








PopupMenu で 表示 で きる の は 、1 つの トッ プレ ベル メニ ュー だ け で す 。 で すか ら 、 
いろ いろ な メニ ュー を 組み 込み た い 場 合 は 、Form2 の [編集 ] メニ ュー の よう に 、 ポ 
ッ プ アッ プ メ ニュ ー 専 用 の メニ ュー を 作成 し て お き 、 フ ォ ー ム で は 非 表 示 に し て お いて 、 
ポッ プア ッ プ 時 に 表示 させ る よう に する と いい で し ょ う 。 


第 3 日 5 時 限 目 メニ ュー を 使 う 








プロ グラ ミン グ を は じ め る 前 





レッ スン 前 の チェ ッ ク ポ イン ト 





Visual Basic で Windows の プロ グラ ミン グ を 行う に は 、Windows に つい て の 基礎 知識 
が 必要 で す 。 次 の 8 つの ポイ ント で 、 自 分 の 知識 を チェ ッ ク し て みて くだ さい 。 


ロフ ァイル の コピ ビー や 削除 、 移 動 、 フ ァイル 名 の 変更 が で きま すか ? 

コロ フォル ダ の 作成 や 削除 、 移 動 が で きま すか ? 

コロ フォ ル ダ の 階層 構造 や パス 名 の 意味 を 理解 で きま すか ? 

ロア プリ ケー ショ ン の メニ ュー や ツー ル バ ー を 知っ て いま すか ? 

ロ 右 ボタ ン に よる ショ ー ト カッ トメ ニュ ー の 操作 が で きま すか ? 

ロロ アプ リケーション の イン スト ー ル や セッ トト アップ が で きま すか ? 

ロロ ウィン ドウ の 各部 の 名 称 (ウィ ンド ウ 棒 、 ス クロ ー ル バー、 ス テー タ 
スバ ー、 ツ ー ル バー な ど ) の 機能 や 役割 を 理解 し て いま すか ? 

Visual Basic 6.0 を 持っ て いる 、 あ る い は 購入 する 予定 で すか ? 





きす べ て | YES」 っ みす ぐに で も Visual Basic を 学び は じ め る こと が で 
きま ルッ ズン に 進ん で くだ さい 1 

@ NO」 が 1 一 3 … 本 文中 で 必要 な 部 分 は レッ スン 中 で 随時 解説 し て 
いる の で 大 丈夫 で す 。 レッスン に 進み まし ょ う 。 

で NO」 が 4 つ 以 上 一 Visual Basic の 前 に Windows の 基本 操作 を マス タ 
5 


CD-ROM の 使い 方 





CD-ROM に は 完成 し た プロ ジェ クト ファ イル を 各 レ ッ ス ン ご と に 収録 し まし た 。 も し レ 
ッ ス ン ど お り に 入力 し て も うま く 動 作 し な いと き は 、 こ の 「 完 成 版 |] を チェ ッ ク し て 同じ 
よび 区 公 っ で み で くだ さい ゆい 。 プロ ジェ タダ ト プ ァ イル で 使用 し て いる アイ エン や ヤ イ メー ジフ 
ァイル も 各 レ ッ ス ン フ ォ ル ダ に いっ し ょ に 収録 し て いま す 。 必要 な ファ イル を ハー ド デ ィ 
スク に コビー し て 使っ て くだ さい 。CD-ROM の 詳し い 使 用 環境 や ご 注意 に つい て は オリ エ 
ン テ ー シ ョ ン の 最後 の ペー ジ に ある 「CD-ROM を ご 使用 に な る 前 に | を お 読み くだ さい 。 


包 マイ ドキ ュ メ ント フォ ル ダ 









0 
HI ーーー 
me ーー 






学習 する レッ スン の フォ ル ダ を 
フォ ル ダ ご と ハル ハードディスク に 
コピ ー し て くだ さい 。 







LessonU3 


国 | 男 












Lesson01 、 「 
ファ イル フォ ル ダ LessonU6 Lesson7 LessonU8 LessonU9 
更新 日 時 _ EE _ 
98/1 ki | | | 本 ] | | 
| フイ ス 200 バイ ト Lesson11 Lesson12 Lesson13 Lesson14 
ce 





リエ ジテ デー ショ の 





Visual Basic の 開発 環境 


Visual Basic に は ビジ ュ ア ルプ ログ ラミ ング 環境 を 強力 に サポ ー ト する 様々 な 機能 
備わっ て いま す 。 





Visual Basic の 開発 環境 
時 作り な が ら 動 作 で きる イン タプ リタ 機能 
Visual Basic で は 、 プ ログ ラム を 作成 し た ら 、 す ぐに その 場 で Visual Basic 上 で プ 
ログ ラム を 動作 させ る こと が で きま す 。 


コー ド 全 体 を すべ て 書か な く て も 、 部 分 的 な 所 だ け を いっ た ん 動作 きせ て 、 う ま 
く で き て いる か どう か を 確認 する こと が 可能 で す 。 








mm の 2 の の oー ニ ーー エーーー デー ニニ ーー プー ニー ココ ーーー つ の か ァァァ ーー si 


eo 5 am no 9 0 ウ m mm 2 サワ の 40 と 4 ナン 8 2 


| は ・ ャ キャ 0 ・ 加 メ は * BS 記さ CM 区 - 本 1 | 生 9 こ 入 1 
し ea =| ロ <] ロー 


(GenersD <| Occsrswons) 員 < ーー ーー 
5 に ーーー アー 
に ム 


Dim lmgNo As Integer 










Private Sub ExitBtn_Click() 
0 








Sub Form _Load ラ ァイル - | 


erv 
St も 0 sbI に 


Priyate Sub IDMExit C 
End 


Priyate Sub IDMSet CI 
Form2.Show 1 

End_Sub 

Fr i yate ンー・ b StartBtn_e 
"Ti r1 Enabled = Tr 
St っ SrtBtn En abled ニ Fa ls を | 








高速 な コン パイ ラ 機 能 

Visual Basic で は 、 作 成 し た プロ グラ ム を 、 単 独 実行 で きる IEXE] ファ イル に 
変換 で きま す 。 作成 し た プロ グラ ム を Visual Basic 上 で 動作 確認 を し て 、 最 後に こ 
の 実行 可能 な ファ イル と し て 作成 すれ ば 、Visual Basic が な く て も 、 通 常 の アプ リ 
ケー ショ ン と し て 動作 きせ る こと が で きま す 。 こ の ファ イル 形 な ら 、 他 の コン シン ピ 
ュー タ で 動作 きせ た り 、 パ ソコ ン 通 信 や イン ター ネッ ト を 通じ て 配布 する こと も 人 簡 
単に で きま す 。 

| 條 「 ee | し ・。・ き ざら マホロ o 。 

gc 議 ロ ョ ュー 


に Formi animeafrm 
呈 Form2 (animeset fr m) 











Visual Basic の 開発 環 










実行 林 能 ファ イル の 作成 | セパ イル 了 


| ーー が ーッ ョ ツン 番号 NO 7 フサ サー ショ ソー YE | 
ーー ャ イナ Ao op に ニーーーー cn18 
_ 還 詳 h 有 





で ュ ト の 人 基 を 遇 化 D 「 pertum proTM0 へ の 最適 (⑤ 


エド の イメ 宅 最 遂 人 = 「 シッ ホリ ウデ パッ 情報 を 作成 





ユー ザー イン ター - フ ェ イ ス の 作成 が 簡単 

Visual Basic の プロ グラ ミン グ は 、「 コ ント ロー ル 」 と 呼ば れる Windows の 部 品 
を 組み 合わ せ て 、 プ ログ ラム の 外観 (ユー ザー イン ター フェ イス ) を 作成 し ます 。 
ユー ザー イン ター フェ イス の 作成 は と て も 筒 単 で 、 ツ ー ル ボッ クス に 配置 され て 
いる コン トロ ー ル を 、「 フ ォ ー ム | と 呼ば れる ウィ ンド ウ 枠 の 中 に マウ ス で ドラ ッ グ 
する だ け で 補 き て で し まい ます 。 





コー ド 作 成 用 の エディ タ を 様 準 装備 
Visual Basic で は 、 コ ント ロー ル を 使っ て ユー ザー イン ター フェ イス を 作成 し な 
ら 、 同 時 に 実際 の 処理 を 受け 持つ | プロ グラ ムコ ー ド 」 を 記述 し ます 。 コード の 
作成 は 、 専 用 の エディ タ (編集 ソフ ト ) が 組み 込ま れ て お り 、 色 に よる キー ワー ド 
の 識別 や 入力 候補 を 表示 する な どの 、 数 々 の 入力 支援 機能 を 持っ て いま す 。 








Dim ImgNo As Integer 







Priyate Sub ExitBtn_Click 
End 






End Sub 






Private Sub も Load() 
ImgNo = 






TI 和 Wer1] ER = 100 
Start て Btn. Enabled ニ False 








End Sub 





Priyate Sub IDMExit Click 0 
n 
End Sub 





ーー 講 "e 
オリ エン テー ショ 





人 ⑤ プロ ジェ クト 方 式 を 採用 
これ まで の Basic プロ グラ ミン グ で は 、 1 つの プロ グラ ム に 対し て 1 つの ソー スコ 
ー ド で 作成 され て いま し た 。 これ に 対し て 、Visual Basic の プロ グラ ミン グ で は 、 
| プロ ジェ クト ファ イル 」 と 呼ば れる ファ イル で 、 プ ログ ラム の ソー ス ( 元 に な る コ 
ー ド ファ イル ) を 管理 し ます 。 こ れ に より 、 複 数 の ファ イル を 組み 合わ せ た プ ログ 
ラム 開発 が 可能 に な り 、 以 前 使っ た フォ ー ム や コー ド を 、 別 の プロ グラ ム で 再 利用 


する こと が 可能 に な っ て いま す 。 
復 数 の ファ イル を プロ ジェ クト で 
扱う こと が 可能 


に Pl ybp) 
折 で フォ ー ム 
攻 | Farm1 (Farm1.frm) 
白 B 了 SlotGames (SlotGame.vbp 
折 - 人 多 が - ゴト Hー 此 
に 一 Slot (SlotG ョ me.ctl) 











モジ ュー ルプ ログ ラミ ング が 可能 

プロ ジェ クト 方 式 を 採用 し た こと で 、 ソ ー ス を 複数 の メン バー で 分 割 し て 作成 す 
こと が 可能 に な り ま し た 。 ま た 、 プ ログ ラミ ング 言語 自体 が 「 構 造 化 プロ グラ ミ 
ング 」| の 概念 を 取り 入れ て いる の で 、 プ ログ ラム を モジ ュー ル ご と に 組み 上 げ る こ 
と が で きま す 。 

例え ば 、1 つ の プロ グラ ム を 「 メ ニュ ー モ ジュ ー ル | 「 設 定 モ ジュ ー ル | [ファ イ 
ル 保 存 モ ジュ ー ル 」 な ど と 、 機 能 ご と に 分 割 し て 組み 立て が 可能 で す 。 こ れ に より 、 
開発 が 容易 に 行え る と 同時 に 、 デ バッ グ 作 業 の 軽減 に も つなが っ て いま す 。 


| モジ ュー ル の 追加 


ーー 
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kk 呈 圧 和食 


| | 見 出し 画面 ウキ イト opBcn ゲ 作 。 わ ツ ジッ 
ゲイ アロ ゲ 


較 フォ ー ム モジ ュー ル 関 議 





API いら ず の 豊富 な メソ ッ ド ・ 関 数 (Professional Edition 以上 ) 

Windows の プロ グラ ミン グ は 、 本 来 「API| と 呼ば れる Windows の 機能 を 呼び 
出し て 組み 立て て いく も の で す 。 し か し 、 こ の API は C 言 語 な どか ら 使う よう に で 
き て お り 、 そ の 記述 も 複雑 で す 。 

Visual Basic で は 、 こ の API の 多く を コン トロ ー ル の 「 メ ソ ッ ド |」 や 「 関 数 ] に 
組み 込ん で お り 、API よ り も 簡単 な 記述 で 同じ よう な 機能 が 使え を る よう に な っ て い 
ます 。 こ の お か げ で 、Visual Basic を 使っ た Window の アプ リケーション 開発 が わ 
か りや すく 容易 よ な も の に な っ て いま す 。 


| 
較 較 較 組 較 当 | API ビ ュー ア 









s 
GetChar&BCWidthsF loat 
GestChsracterPlacement 





Public Declare fn 人 Lib user32 Alia 
中 GetCapture 0O As 


ua ハブ L 


テバ ッ ツ 機能 を 装備 

Visual Basic で は 、 変 数 や 式 の 中 身 を 調べ る | ウォ ッ チ | や 、 プ ロ シ ー ジ ャ の テ 
スト や 式 の 評価 を する と き に 便利 な | イミ ディ エイ ト 」、 プ ログ ラム を 一 行 ず つ 実 行 
する 「 ス テッ プ 実 行 」 機能 な ど 、 プ ログ ラム の 人 不具合 (バグ ) を 調べ 、 修 正す る 機 
能 を 装備 し て いま す 。 い ずれ も 、 簡単 な 設定 で 操作 で き 、 デ バッ グ 作 業 の 負担 を 軽 
減 で きま す 。 
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ディストリビュー ショ ン ウ ィ ザ ー ド を 用 意 

質問 に 答え て いく だ け で 、 作 成 し た プロ グラ ム を 配布 する 用 意 が で きる 「 デ ィ ス 
トリ ビュ ーション ウィ ザー ド 」 が 、Visual Studio60 の ツー ル と し て イン スト ー ル ミ さ 
れ て いま す 。 

Visual Basic で 作成 し た プロ グラ ム を 配布 する に は 、 関 連 す る 「DLL」 ファ イル 
を いっ し ょ に 配布 し な いと 、 正 常に 動作 し ませ ん 。 デ ィ ス トリ ビュ ーション ウィ ザ 
ー ド は 、 プ ロジ ェクト ファ イル か ら こ れ ら を 自動 解析 し 、 必 要 な 関連 ファ イル を 実 
行 フ ァイル と いっ し ょ に 圧縮 し て まとめ て くれ ます 。 ま た 、 イ ンス トー ル す る た め 
の | セッ ト ア ッ プ プロ グラ ム 」| も 自動 で 組み 込ん で くれ ます の で 、 プ ログ ラム 配布 
キッ ト を 簡単 に 作成 で きま す 。 





強力 な オン ライ ン ヘ ルプ 機能 
これ まで 、Windows の ヘル プシ ステ ム で 提供 され て いた 、Visual Basic の オン ラ 
イン ヘル プ は 、 新 し く HTML を ベー ス と し た ヘル プシ ステ ム に 変更 さき れ ま し た 。 
また 、 提 供 さ れる ヘル プ コ ン テ ン ツ も 、「MSDN* ラ イブ ラリ 」| と いう 形態 で 、 
Visual Studio 6.0 の ヘル プ と し て 参照 で きる よう に な っ て いま す 。 この 中 に は 、 
Visual Basic の ラン ゲー ジリ ファ レン ス だ け で な く 、Microsoft が 提供 し て いる 開発 
キッ ト の マニ ュ ア ル も 含ま れ 、 開 発 者 に と っ て は 貴重 な 情報 源 と な っ て いま す 。 








Visual Basic の 開発 環 


この オン ライ ン ヘ ルプ を 使え ば 、Visual Basic の マニ ュ ア ル に 書か れ て いる こと 
を すべ て オン ライ ン で 参照 する こと が で きま す 。 プ ログ ラミ ング 中 に 不明 な 用 語 や 
事柄 が 見 つか っ た 場合 、 す ぐに 検索 で き 、 画 面 上 で 参照 し た り 、 印 刷 す る こと が で 
さま す 。 

※MSDN 


Microsoft Developer Network の 略 で 、Microsoft が 有償 で 提供 し て いる 、 開 発 者 向け の 技術 情報 サー ビス 。 
市 販 で は 手 に 入れ る こと の で き な い 技術 情報 や 、 ソ フト ウェ ア 開 発 キ ッ ト な ど が 供給 きれ る 。 





ーーs・ 了 ae | | Visual Basic オン ライ ン ヘ ルプ 
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フォ ー ム や コン トロ ー ル に . ユー ザー の 拉 作 で 発生 し た イー を 記 計 させ る か どう か を 
間 設 志 ます 。 値 の 取 特 も 林 能 で す 。 


| ex* 

| chertEnabled [= coomer] 

H 

財 Enabtad ブロ (ティ の 柄 文 の 指定 項目 ば:X の と お り で す 。 


| | 指 赴 項目 内 容 


|] ce (1」 和 PW の t ずれ か の オプ ジェ クト きす 
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旧 cose の が ュー ー ザ ー の 拉 作 で 発生 する イベ ント EE 境 す る か 
ト か を 〒 す ーー を 和 ます 

| 設定 休 


計 と cw の 競 定 よ の と お り で す 。 


明 DHTML 作成 機能 (Professional Edition 以上 ) 

Visual Basic 60 か ら 追 加 き され た 新しい 機能 で 、DHTML (Dynamic HTML) を 使 
っ た HTML フ ァイル を 作成 する こと が で きる 機能 で す 。 

この 機能 を 使う と 、HTML ペ ー ジ を フォ ー ム の よう に 使用 し て 、 コ ント ロー ル を 
配置 し 、 コー ド を 使っ た 処理 を 組み 込む こと が で きま す 。 作成 し た DHTML プ ロジ 
ェクト を コン パイ ル す る と 、「DLL」 ファ イル と し て 生成 され ます 。 こ の DLL フ ァ 
イル を 、 作 成 し た HTML フ ァイル と 同じ 場所 に 配置 すれ ば 、 ブ ラウ ザ で 機能 を 実行 
させ る こと が で きま す 。 

Visual Basic の 開発 環境 か ら 作 成 で きる の で 、DHTML を Windows プ ログ ラム と 
同じ 操作 手順 を 活用 で きま す 。 
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プロ ー ラ 4.01 で 実行 
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Visual Basic の 画面 構成 
Visual Basic の 癌 部 分 の 名 称 を 説明 し ます 。 








Visual Basic の 難 部 の 名 称 
(《④ フ ォ ー ム 作成 ウィ ンド ウ (0 オン ジェ クト ドブ ラウ ザ (に に メキ アド 
エク スプ ロー ラ 
コー ドウ ィ ン ド ウ 


(の 7 ロリ パテ ディ 
ウィ ンド ウ 




















まま 


ーー 
EN 
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際 ペ ペペ の ペペ ペ ニー ペペ た かれ 
-』 生 


⑩ ウ ォ ッ チ ウ ィ ン ド 
③ コ ント ロー ルツ ー ル ボッ クス 


① メ ニュ ー 
Visual Basic の 操作 を 行う メニ ュー で す 。 モ ジュ ー ル の 挿入 や 削除 な ども 、 こ の メニ ュ 
ー か ら 実 行 で きま す 。 

⑧② ぐ ツー ル バ ー 
メニ ュー の 中 で よく 使う 項目 が 、 ツ ー ル バー の ボタ ン に な っ て いま す 。 ツー ル バ ー の 上 
で マウ ス の 右 ボ タン を 押す と 、 表 示す る ボタ ン の 種類 を 設定 で きま す 。 

③ コ ント ロー ルツ ー ル ボッ クス 
コン トロ ー ル を 配置 し て ある ツー ル ボ ックス で す 。 こ こ か ら 、 使 用 し た い コ ント ロー ル 
を 選ん で 、 フ ォ ー ム に 配置 し ます 。 


⑪ ロ ー カ ルウ ィ ン ド ウ 


⑧ フ フォー ムレ イア ウト 
ワウ イィ ンド ウ 












Visual Basic の 画面 構 


《④ フ ォ ー ム 作成 ウィ ンド ウ 
プロ グラ ム の ベー ス と な る ウィ ンド ウ を 「 フ ォ ー ム | と 呼び ます 。 こ の フォ ー ム 
作成 ウィ ンド ウ で 、 コ ント ロー ル を フォ ー ム に 配置 し 、 プ ログ ラム の ユー ザー イ 
ンタ ダー フェ イス を 作成 し ます 。 


⑤⑥ コ ー ド ウィ ンド ウ 
プロ グラ ム の 処理 を 実行 する 、 コ ー ド を 作成 する ウィ ンド ウ で す 。 テ キス ト エ デ 
ィ タ 機 能 を 持ち 、 コ ー ド の コピ ー や 貼り 付け な ども ゃ 実行 で きま す 。 


⑥ プ ロジ ェクト エク スプ ロー ラ 
プロ ジェ クト ファ イル を 管理 する ウィ ンド ウ で す 。 操作 し た い フ ォ ー ム や コー ド 
ウィ ンド ウ の 切り 替え を 行い ます 。 


(の プロ バディ ウィ ン ドウ 
フォ ー ム や コン トロ ー ル が 持つ 様々 な 属性 情報 | プロパ ティ | を 設定 する ウィ ン 
ドウ で す 。 フォー ム 作 成 ウ ィ ン ド ウ で 、 コ ント ロー ル や フォ ー ム を クリ ッ ク す る 
と 、 自 動 的 に この プロ パテ ィ ウ ィ ン ド ウ も その オブ ジェ クト の も の に 切り 替わり 
ます 。 ここ で 操作 で きる プロ パテ ィ は 、 デ ザイ ン 時 に 値 の 設定 が で きる も の が 表 
示さ れ ま す 。 


(0⑧ フ ォ ー ム レイ アウ トウ ィ ン ド ウ 
プロ グラ ム 実 行 時 に 、Windows の 画面 の 中 で フォ ー ム の 表示 され る 位置 を 設定 す 
る ウィ ンド ウ で す 。 


⑨ イ ミディ エイ トウ イィ イッ R5 
プロ グラ ム の コー ド 作 成 中 に 、 一 時 的 に コー ド を 実行 し て 動作 を 確か め た い 場 合 、 
この ウィ ンド ウ に 記述 し ます 。 


⑩ ウ ォ ッ チ ウ ィ ン ド ウ 
プロ グラ ム 動 作 中 に 、 式 や 変数 の 値 を 調べ る こと が で きま す 。 調査 中 の 値 は 、 こ 
の ウィ ンド ウ に 表示 され ます 。 


①⑪ ロ ー カ ルウ ィ ン ド ウ 
指定 し た プロ シー ジャ 内 の 、 す べ て の 変数 と その 値 を 表示 する ウィ ンド ウ で す 。 


⑩⑫ オ プ ジ ェ クト プラ ウザ 
プロ ジェ クト で 使用 で きる 、 す べ て の オブジェ クト と 関連 する メソ ッ ド ・ プ ロ パ 
ティ を 見 る こと が で きる ブラ ウザ で す 。 検索 機能 を 持ち も 、 こ の ウィ ンド ウ で 使用 
し た い オ プ ジ ェ クト や プロ パテ ィ を 、 ク リッ プ ボ ー ド 経由 で コー ドウ ィ ン ド ウ に 
貼り 付け る こと が で きま す 。 


⑬ デ ー タ ビュ ー ウ ィ ン ド ウ (Professional Edition 以上 ) 
デー ダビ ピ ュー ウイ シギ ドウ ば 、 プ ロジ ェクト に 追加 きれ た すべ て の 「|Data 
Environment| を 確認 し て 、「Data Environment| と の 接続 状態 を 表示 し ます 。 
また 、 デ ー タ ベー ス の テー ブル や ビュ ー の 作成 や 修正 、「 ストア ド プ ロ シ ー ジ ャ | 
お よび 「 ト リガ | と 呼ば れる 特殊 な スト アド プロ シー ジャ の 作成 修正 な ど を 行う 
こ ど と が ぞ でき ます 。 

Q⑭ カ ラー パレ ッ ト 
フォ ー ム や コン トロ ー ル の 人 色 を 選択 ・ 設 定 す る パレ ッ ト で す 。 
プロ パテ ィ ウ ィ ン ド ウ で 色 を 設定 する 場合 に も ち 、 カ ラー パレ ッ ト は 表示 され ます 
が 、 そ れ 以 外 に 専用 の ウィ ンド ウ で 表示 で きま す 。 
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Visual Basic の 基本 操作 


Visual Basic の 起動 と 終了 、 フ ァイル の 保存 に つい て 説明 し ます 。 


旧 Visual Basic は 、 イ ンス トー ル す る と スタ ー ト メニ ュー に 登録 され て いま す 。 
Visual Basic を 起動 する と き は 、Windows の [スタ ー ト | メニ ュー で 、[ プ ログ ラム ] 
っ [Microsoft Visual Basic 6.0] 一 [Visual Basic 60| の 順に クリ ッ ク し ます 。 
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プア 起動 する と 、 作 成す る プロ グラ ム の 種類 を 選ぶ ウィ ンド ウ が 表示 きれ ます 。 通常 
の プロ グラ ム 作 成 で あれ ば 、「 標 準 EXE」 を 選び 、[ 開 く ] を クリ ッ ク し ます 。 
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この 画面 は Visual ーッ ウ 
Basic の Edition に ここ 算 ノ リッ ン 
よっ て 異な り ま す 。 


Visual Basic の 基本 操 


すでに 作成 し た ファ イル を 使用 する 場合 は 、 手 順 2 の 画面 で [既存 の ファ イル ] 
また は [最近 使っ た ファ イル | タブ を クリ ッ ク し て 選び ます 。 
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ーー て ーー プー ンー ーー プー アー ンーーーーー ツ ーー 


2 衝 。。 プロ グラ ム を 作り 終え を た ら フ ァイル を 保存 し ます 。 作成 し た プロ グラ ム を 保存 す 
る と き は 、 プ ロジ ェクト ファ イル と 、 プ ロジ ェクト に 含ま れる フォ ー ム や モジ ュー 
ルフ ァイル を 保存 し ます 。 
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| | Temp 
| HELP FILES し work 
| ] JAVA Work _ 庫 稿 | 
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Visual Basic を 終了 する と き は 、[ フ ァイル | メニ ュー の [Microsoft Visual Basic 
の 終了 ] を 選び ます 。 未 保存 の ファ イル が ある 場合 は 、 保 存する よう に メッ セー ジ 
が 表示 され ます 。 
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付録 WLesson37WGroupl vbe 
き Cw wioka-vBe-ie 付 WoawoAA-10vtp 


オリ エン テー ショ に 


CD-ROM を ご 使用 に な る 前 に 


CD-ROM を 使用 する 際 の ご 注意 等 で す 。CD-ROM 中 の テキ スト ファ イル 
[readme.txt」 も あわ せ て お 読み くだ さい 。 


@ CD-ROM に つい て 

松 末 に 付属 の CD-ROM に は 本 書 「10 日 で お ぼ え る Visual Basic 6.0 入門 教室 | (VB 
テッ クラ ボ & 瀬 戸 舌 著 ) の 本 文中 で 解説 し た 各 レ ッ ス ン の 完成 版 や レッ スン に 必要 な ファ 
イル が 入っ て いま す 。 ハ ー ド ディ スク に フォ ル ダ ご と ドラッグ コピ ー し て お 使い くだ さい 
ファ イル を コピ ー す る 方 法 が わか ら な いと き は Windows の オン ライ ン ヘ ルプ か ら 「 フ ァ 
イル や フォ ル ダ を コピ ー す る に は 」 を ご 覧 くだ さい 。 

※ レッ ズン で 使用 する プロ ジェ クト ファ イル (また は HTML ファ イル ) で 、 外 部 ファ イル と リン 
ク し て いる も の は リン ク の 参照 情報 (フル パス 名 ) が 無効 に な っ て いる 場合 が あり ます (特に 
LeSSOno/ ら 3/ ら 9/3/7/38 な ど )。 そ の 際 は 、 必 要 な ファ イル を ハル ハードディスク に コピ ー し た 
後 、 本 書 の 手順 に 従い 自分 の 環境 に 合う よう に 再度 プロ ジェ クト ファ イル 等 を 作り な お し て く 
だ さい 。 また 、Lesson29 で 使用 する デー タベース ファ イル に つい て は 、 コ ピー し た 後 [属性 ] 
の [読み 取り 専用 ] の チェ ッ ク を は ず す 必要 が あり ます 。 


@ 免 責 事 項 に つい て 
CD-ROM に 収録 され た ファ イル は 通常 の 運用 に お いて は 何ら 問題 な いこ と を 編集 部 で は 
庄 し て いま す が 、 万 一 運用 の 結果 、 い か な る 損害 が 発生 し た と し て も 著者 及び (株 ) 翔 
泳社 は いか な る 責任 も 負い ませ ん 。 す べ て 自己 責任 に お いて ご 使用 くだ さい 。 


@ CD-ROM の 使用 環境 茶 件 
別館 購入 する 必要 が あり ます 。 
その 他 、 全 レッ スン を 進め る うえ で 以下 の ソフ ト や ハー ド を 用 意 し て お く と 便利 で す 。 
・ サ ウン ド フ ァイル や MIDI ファ イル を 再生 する た め の オ ー デ ィ オ カー ド 
・Internet Explorer 4.01 お よび Frontpage Express (Microsoft 社 よ り 無 償 提 
供 。Windows988 を 使用 し て いる 方 は 不要 ) 


人 @ CD-ROM の テス ト 環 境 に つい て 
CD-ROM は 以下 の 環境 で 正常 に 動作 する こと を 確認 し まし た (Learning は 部 分 確認 )。 
・ VISua| Studio 6.0 Enterprise EditiOon/Visual Basic 6.0 Learning Edition 
・ Windows88/Windows NT Workstation 4.0 
・ Compaq Deskpro 4000 5166 Me500 CDS/RAM 128MB/HD 2.1GB 


人 @ 著 作 権 等 に つい て 

本 書 に 収録 し た プロ グラ ム お よび ソー スコ ー ド の 著作 権 は 、 著 者 お よび (株 ) 翔 泳社 が 
所 有 し ます 。 た だ し 読者 が 個人 的 に 利用 する 場合 に 関し て は ソー スコ ー ド や フォ ー ム 、 コ 
ント ロー ル の 流用 や 改変 は 自由 で す 。 商 用 利用 に 関し て は 、( 株 ) 翔 泳社 へ 電子 メー ル 
(mailweb@shoeisha.co.jp) な ど で ご 一 報 く だ さい 


(株 ) 翔 泳社 編集 部 





3 ] 日 (Lesson1 ~- Lesson フ ) 


は じ め て の 
プロ グラ ム を 作る 









天 | 日 は 、 ま ず Visual Basic の 各 ツ ー ル を 使っ て プロ グラ ム の 外観 を 作成 し まし 
よう つ 。 ま た 、 プ ログ ラム 作成 の 流れ も 実際 に 操作 し な が ら 覚 えま す 。 


プロ グラ ム の ユー ザー イン ター フェ イス を 作成 する に は 、 フ ォ ー ム に コン トロ ー ル 
と 呼ば れる 様々 が 部品 を 配置 し て 、 そ の 外観 を 整え ます 。 


コン トロ ー ル に は 、 ラ ベル コン トロ ー ル や イメ ー ジ コン トロール の よう に 、 ユ ー ザ 
ー へ 情報 を 表示 する た め に 使用 する コン トロ ー ル と 、 コ マン ド ボ タ ン や リス ト ボ ッ 
クス の よう に 、 ユ ー ザ ー の 操作 に 対応 し て 動作 する コン トロ ー ル の ら 種類 が あり 
ます 。 中 で も 比較 的 使用 方 法 が 簡単 な コン トロ ー ル を いく つか 使っ て 、 コ ント ロー 
ル を フォ ー ム に 配置 する 方 法 や 、 コ ント ロー ル の 属性 を 決め る プロ パテ ィ の 操作 方 
法 を 紹介 し ます 。 

之 日 の レッ スン で 解説 する 項目 

ココ プログラム 作成 の 流れ の 把握 

Visual Basic の 各 ツ ー ル の 操作 方 法 

コ 複数 の コマ ンド ボタ ンコ ント ロー ル を 使う 際 の プロ シー ジャ の 使い 分 け 

コラ ベル コン トロ ー ル の 使い 方 

ココ コン トロ ー ル の プロ パテ ィ を 変更 する 方 法 

ココ コード で コン トロ ー ル の プロ パテ ィ を 変更 する 方 法 

コイ メー ジコ ント ロー ル に 画像 ファ イル を 設定 する 方 法 

ロイ ベン ト プ ロ シー ジャ を 使っ た テク ニッ ク 

ココ ント ロー ル を 使っ て フォ ー ム を デザ イン する 方 法 








コマ ンド ポタ ン で メッ セー ジ を 表示 する 


ひと と お り 、 プ ログ ラム 作成 の 流れ を 把握 し ます 。 ま た 、Visual 
Basic の 各 ツ ー ル の 操作 方 法 を 覚え ます 。 





ラ 回 作成 する プロ グラ ム 











この ボタ ン を 押す と …… 
| メッ セー ジ が 
ー | はじめ て の プロ グラ ム で す 。 | の こ ek と 
< Lesson1.vhp | 」 
ae 還 間 
9 7 0 較 | [OK] ボタ ン で 
= ペコ Lesson01 | 


押す | 


で は 、 は じ め で の プロ グラ を 作 如 まし ょ う 。 と の プロ ダマ ム は 、 
コマ ンド ボタ ン を 押す と 、 メ ッ セ ー ジ ボッ クス を 表示 する だ け の シ 
ンプ ル な プロ グラ ム で す 。 こ の プロ グラ ム の 作成 を 通じ て 。 コ ント 
ロー ル の フォ ー ム へ の 配置 方 法 と プロ パテ ィ の 変更 方 法 、 プ ログ ラ 
ムコ ー ド の 記述 方 法 、 プ ログ ラム の 実行 方 法 を 学習 し ます 。 
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3 コカ イル 名 を 指定 し て 実行 G⑤)- 0 
022 の 0 ゲ わ ⑩- 

| きか Wmdows の 終了 (DD- 2 0 
ii ラー 中 ノバ で マー 





[新しい プロ ジェ クト ] ダイ アロ グ ボ ックス か ら [ 標 
準 EXE] を 選択 し て [開く] を クリ ッ ク す る 









くる > > 
> グ ンー テ 午 テ ーー 誠 矢 1 [標準 .EXE] 


を 選択 












年 半 ま 避 ctiveX EXE 上 ctiveX DLL 占 ctiveX 了 フ コリ ケ ー シ ョ ソ ロ ィ ザ ボード 
ヤ ト h- ル ウィ サー ド マネ ー ツ や ャ 
2 28 。 < S。 層 
し. 半 IS アド 上 &ctiveX _ Aotivex DHTNML 
フリ ロジ ツェ リト 7 アフリ サージ ショ ッ ドキ ュ ア 人 ト DIl ドキ ュ ル ルト Exe 了 フ リ ケ サー ショ ッ w 
財 | 半 く ) を 
ーー | 記 和 | クリ ッ ク 





コマ ンド ボタ ン で メッ セー ジ を 表示 する 





[スタ ー ト ] 

メニ ュー 
アプ リケーション な ど を 
起動 する と き に 使用 する 
Windows の タス ク バ ー の 
メ ンー ーー こよ 画面 の 左 
下 に あり ます 。 
(VisualBasic の 起動 と 終了 
は P.xxx を 参照 ) 


Visual Basic を 
く ダ 中 動 する に は 


トス ター ト | ボタ クン アプ 
ログ ラム ]、[Microsoft 
Visual Basic 6.0」、[Micro 
soft Visual Basic 6.0] の 
順に クリ ッ ク し ます 。 


プ 標準 ExE 


[EXE| と は 実行 ファ イル 
の こと で す 。 一 般 的 な ア 
プリ ケー ショ ン を 作る と 
き は この 「 標 準 .EXE] を 
選択 し ます 。 
次 回 か ら こ の ダイ 
アロ グ ポ ボッ クス を 
表示 し な い 


[次 回 か ら こ の ダイ アロ グ 
ボッ クス を 表示 し な い 」 
チェ ッ ク ポ ックス を クリ 
ググ も て を と チェッ ケ ク ケ し も て も 
く と 、 次 回 か ら こ の ダイ 
アロ グ ボ ックス が 表示 さき 
れ な く な り 、 新 し い プ ロ 
ジェ クト と フォ ー ム が 自 





sui 
石 欄 参照 この 画面 は Edition に よっ て 異な る 
第 1 日 1 時 限 目 はじ め て の プロ グラ ム を 作る 


ヶ Visual Basic の 
く プ 初 基 画 面 


これ が Visual Bassic の 基 
本 と な る 画面 で す 。 通常 
は ここ か らい ろ い ろ な プ 
ログ ラム を 作っ て いき ま 
。 


と フー クエ グセ 

オプ ジェ クト に は 様々 な 
意味 が あり ます が 、 フ ォ 
ー ム や コン トロ ー ル な ど 、 
プロ グラ ム を 構成 する 部 
品 を 総称 し て 「 オ プ ジ ェ 
クト 」| と 呼ん で いま す 。 


亀 代表 的 な オブ ジェ クト 


・ コ ント ロー ル す べべ て 
・Form オ ブ ジ ェクト 
・App オ プ ジ ェ クト 
プッ ャ ー ダ ナグ クギ モス 

オキ プン ジェ クト 
・Clipboard オ プ ジ ェ クト 
・Database オ プ ジ ェ クト 
・Font オ プ ジ ェ クト 
・ HyperLink 

オプ ジェ クト 
・Light オ プ ジ ェ クト 


N we 
し J| ' ニー 2 ォ - ん 4 
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久 新しい プロ ジェ クト と フォ ー ム が 作成 され る 
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倫 コ 3 = 和 選 Projectl (Project1) ' 
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プロ ジェ クン トル つつ し て 

これ まで の Basic プロ グラ ム は 、1 つ の ソー ス フ ァ イル で 1 つの プロ グラ 
ム を 実行 し て いま し た 。 

Visual Basic で 作成 する プロ グラ ム は 、 複 数 の ファ イル で 構成 され ます 。 
フォ ー ム を 1 つ 使 うと 、 プ ロジ ェクト ウィ ンド ウ に フォ ー ム の ファ イル が 
追加 され ます 。 標準 モジ ュー ル を 追加 すれ ば 、 こ の ファ イル が プロ ジェ ク 
ト に 追加 され ます 。 こ の よう に 、1 つ の プロ グラ ム を 作成 する の に 複数 の 
ファ イル が 必要 に な る た め 、 ど の プロ グラ ム は どの ファ イル を 使う の か を 
管理 する 仕組 み が 必 要 に な っ て きま す 。 こ れ が 、「 プ ロジ ェクト 」| と いう 
管理 方 法 で す 。 

プロ ジェ クト は 「 プ ロジ ェクト ファ イル 」| と いう 専用 の ファ イル を 持ち 、 
ここ に プロ グラ ム に 使う ファ イル の リス ト を 記述 し て いま す 。 


| 1 ピル | ia に 


プロ ジェ クト ファ アイ ルル 


曰 - 仁 9 フー ム 


Farm1 Farm11 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


LeSSOn ] 


フォーム に つい と 


プ ナダ ラム の ポー ンー ス と な る ウィ シル ドウ の こと ぞ で すず す 。 こ こと に 、 コ マン ド ボ 


タン や メニ ュー な どの コン トロ ー ル を 配置 し て 、 プ ログ ラム の 外観 を 作成 
に まず まず 。 
1 つの プロ グラ ム で 複数 の フォ ー ム を 持つ こと が で きま す 。 


ツー ル ボ ックス の [CommandButton] を クリ ッ ク 
する 








ms。 Project1 - Microsoft yisual Basic [デザ イン | 
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| 度 ・ も ・ 提 許 邊 皿 的 Il 還 |1S 四 叫 


この ボタ ン を 


グリッ ンク 





ドラ ッ グ し て 適当 な 大 き さ の 四角 形 を 描 を ボタ ン を 
作成 する 


9 For il 


コン トロ ー ル 類 は 
ドラ ッ グ し て 配置 する 





Eo ンプ 





その まま ここ ポ お て 


ドラ ッ グ 





第 1 日 


コマ ンド ホ ボタン で メッ セー ジ を 表示 する 





ぐ ボタ ン 名 の 表示 


ツー ル ボ ックス や ツー ル 
バー の ボタ ン の 上 に マウ 
スポ イン タ を 移動 する と 、 
その ボタ ン の 名 前 が ポッ 
プア ッ プ で 表示 され ます 。 


ボタ ン を 作成 する に は 
[CommandButton] を ク 
サッ ク し 、 フ ォ ー ム トム ト ぞ 
ドラ ッ グ し ます 。 


雇 ドラ ッ グ 


マウ ス の ボタ ン を 押し た 
まま 、 マ ウス ポイ ンタ を 
別 の 位置 まで 移動 する こ 
な で ま 。 は と ん どの コン 
トド ロワ ロール は 。、 ド ラッ ク し 
て フォ ー ム の 上 に 配置 し 
て いき ます 。 


マウ スポ イン タタ の 
く ウ 形 
プ キ ー ム ワオ オン シン ドウ に マ 
ウス ポイ ンタ を 移動 する 
と 、 ポ イン タ の 形 が 十字 
形 に 変わ り ま す 。 


ミー+ 





1 時 限 目 は じ め て の プロ グラ ム を 作る 


オキ フジ ェクト の 
ぐ 選択 と ハン ドル 


オプ ジェ クト が 選択 され 
た 状態 に な る と 、 そ の 周 
り に 黒い 四角 形 が 表示 さ 
れ ま す 。 この 四角 形 は 、 
サイ ズ 変 更 ハ ンド ル と 呼 
ば れ ま す 。 


プロ バテ ィ は 
も う 
デ ロ パ ティ ウィ シン ドウ は 
通常 画面 の 右端 に あり ま 
す 。 (P4 参 照 ) 


[Command1 」 
を 変更 する に は 


[Caption] と いう 項目 名 
だ ナー ルプ グリッ クレ も 
[Command1| を 反転 表示 
(選択 ) し 、 キ ー ボ ー ド か 
ら 「 押 す 」 と 入力 し ます 。 


< フロ リティ と は ? 


た を も の シオ に の ky で 村 
Lesson3 の コラ ム で 説明 し 
て いま す 。 (P222 参照 ) 


Cause=yalidation True 


BackColo 息 &H8O00OnnF& | L 
Cancel F al== 
Eee 押す アン 


コン トロ ー ル は 「 部 品 」 
プロ グラ ム を 形作る 「 部 品 ] を コン トロ ー ル と いい ます 。 コ ント ロー ル 
に は 、 ラ ベル や フレ ー ム 、 イ メー ジコ ント ロー ル な ど 文 字 や 画像 を 表示 す 


る タイ プ の も の と 、 コ マン ド ボ タ ン や リス ト ボ ックス の よう に 、 ユ ー ザ ー 
に よっ て 動作 する タイ プ の も の が あり ます 。 こ れ ら の コン トロ ー ル を フォ 
ー ム に 配置 し て 、 プ ログ ラム の 外 鈴 や ユー ザー イン ター フェ イス を 作成 し 
ます 。 





お 作成 され た ホ タ ン を クリ ッ ク し て 選択 状態 に する 


販 、F or mi 1 








ポ ボタン を クリ ッ ク 


プロ バテ ィ ウ ィ ン ド ウ で 【[Caption] プロ パテ ィ の 
|Command1」 を | 押す 」 に 変更 する 


オフ ジェ クト ポッ クス 





|Command1 CommardButton 
全体 | 項目 別 | 
2 江 外 名 ) 


| Appearanos 





Commanrid 1 P さ ' 







に こ を アノ フル クリ ッ ク ツク 






| 押す 」 を 入力 


| Desfaul F as 
| DisablsdPicture (な し) 
| DownPicture (な い ) 





プロ パ バ パティ リス ト 


Draglcon (な し) 

Drag Mode n- 手 還 

| Enabled True 

Font MS P コ シッ ク ( 
Height 35 ト 4 ( 


LeSSOn1 コマ ンド ボタ ン で メッ セー ジ を 表示 する 


変更 が 即座 に 反映 
ka 1 ボタ ン の 名 前 が 「 押 す ] に な っ た 4kS 


VisualBasic で は 、 ボ タン 
な どの オプ ジェ クト に 対 
する プロ パテ ィ の 変更 内 


2 容 は すぐ に フォ ー ム に 反 
ホホ タン は 記 択 し た まま 映 さ れ ま す 。 


| 





ボタ ン の 

ぐ ダ 移動 中 は … 
ボタン を ドラ ッ グ する と 、 
移動 先 の ボタ ン の 位置 を 
ボタ ン を 下 の 適 当 な 示す 曰 い 四角 形 が 表示 さ 
位置 まで ドラ ッ グ 2 





| 1 還 証 sidiil 

AI 
2 る も に 2 
EK 
oN ECCS 
お 
SS 
02002 時 58323 に 12839 
33 
2 2 
の SRI22325 
> eo 3 0023 光 あお 
1 
ER 
2 
CB 
こま 2 
2 

SS 


ーー ボタ ン を ダブ リル 
クリ ッ ク 


人 


電電 


本 


SL 2 SNESLLX2T NSRR_ EE 2 AE は SE お TED な 2 SE RE SS HK_2EES 半生: つら の ES、 。 


CS RED. RG CGC YS DC SGS TE も ES、 Eb2K KT 238 521 JPSS ES 90p SSG5 KC ED SRK SS AD GS LROS お S RS 





第 1 日 1 時 限 上 日 は じ め て の プロ グラ ム を 作る 


ガト ウィ ンド ウ 


プロ グラ ム の コー ド を 入 
力 す る た め の ウ ィ ン ド ウ 
まま 。| コ ー ド エディ タウ 
ィ インド ウ | また は 「 コ ー 
ドド ウィンドウ | と 呼ば れ 
て いま す 。 

コー ド の 意味 に つい て は 、 


P.10 以 降 の コー ド の 「 解 
説 ] を 参照 し て くだ さい 。 


プロ グラ ム の 実行 
バダ に つい て 
ここ で は 、Lesson1 な の で 
プロ グラ ム の 実行 と 終了 
方 法 に つい て 説明 し ます 。 
この 後 の レ ッ ス ン で は 説 
明 し ませ ん の で 、 こ の 手 
順 を 参考 に し て 実行 と 終 
了 を 行っ て く だ さい 。 


その 他 の 実行 方 法 
は ? 


実行 メニ ュー か ら [開始 ] 
を 選択 し て も プロ グラ ム 
を 実行 する こと が で きま 
す 。 シ ョ ー ト カッ ト は FE5 
キー で す 。 








6) 表示 され た コー ドウ ィ ン ド ウ に コー ド を 書く 


| 骨 Proiect1 S IP [ 加 ト ") 










Private Sub Command1_Click() 
還 ーー ほじ の め の て の プロ ダラ ム や すず す 。 
hi SU 













[開始 ] ボタ ン を クリ ッ ク す る 


に 4 回 還 | ft Visual Basic 計 サ | 


| アイ ME 編集 表示 QD 2mys2ND 書式 (O) チッ が (CD 実行 2 エ 
| 統 ・m・ 居 用 回 島 ぬ ご ーー ゴーーSi 重 恒 


|] この ボタ ン を クリ ッ ク 






8 


本 全 


4. 才 、、 AES EE 5 PO OPD SS 


1 間 間 に に 0 2 

1 SH CK So 

レ ゃ 2 還る 2S こ 科 科 と 2H く 2 ここ 

BRSIS 間 還 凍ら 便 に 0 は 
間 に 
| | 三 加 こう < 『 に ー ま 生生 本 w の こう 覆 を て 了 ン (作っ の に 二 19cW が CEOS EE 9 
1 是 昌 症 。。" "- - 
の 2258 胃 OSD CS を SNES 和 の 


3 | < 間 間 の 
3 | は | 2 ここ 
1 ヨ 人 間 人 


3 に 5 SS 55OoOo = sw wm * ゃ wew = * * ゃ + 
3 5 ロ 了 0 oo w wo woe ee e ゃ we sa 
4 上 EESRGISRS 半 = o o ュ * ャ w 


人 


人 Wh 細 人 Eee 


OO ベン と ov 2 て 女 く awr 


3 と B ーー 
- ] 0 x c 間 
3 g 還 還 人 人 人 二 に の プ 2 す 王 導 に 、 症 人 725 生 に に 痢 


人 


3 es と い CO や で 0 な ご 一 生生 ーー を 信二 (の 23 せ あい > 地 くに 合作: 本 に る っ の) 生生 の の 電 く 000 に に 7 ーー 二 の 
ま 2 昌和 


プロ グラ ム の 実行 - イ ンタ プリ タ 機 能 

Visual Basic の [| 開始) ボタ ン を クリ ッ ク し て 、 人 作成 し た プロ グラ ム を 
実行 で きま す が 、 こ れ は Visual Basic の 上 で プロ グラ ム を 実行 きせ て いま 
す 。 こ の 時 点 で は 、Visual Basic を 起動 し な いと 、 プ ログ ラム は 実行 で き 


ませ ん 。 この 機能 を トイ アア プリ チア 」 機能 と いい ます 。 こ ご こ 克 に 料 | 
Visual Basic が な く て も プロ グラ ム を 実行 で きる よう に する に は 、「 単 独 で 


実行 可能 な EXE フ ァイル の 作成 ] を 行う 必要 が あり ます (詳し く は P.338 
参照 )。 





LeSSOn1 コマ ンド ボタ ン で メッ セー ジ を 表示 する 


フォ ー ム が 起動 し た 後 [押す ] ポタ ン を クリ ッ ク に 全 npーー 
する 


る 場所 を 変更 する 
に は ? 


画面 石 下 に ある [フォ ー 
ムレ イア ウト |] の モニ タ 
中 の ウィ ンド ウ ア イコ ン 
を 好き な 位置 に 移動 する 
こと で 、 フ ォ ー ム が 起動 
する 場所 を 変え る こと が 
で きま す 。 








っ ーー ン 解像度 の が 全 @ 「 


この ボタ ン を クリ ッ ク 





メッ セー ジ ボ ッ クス が 表示 され る の で [OK] ボタ ン 
を リッ ク す る 













人 
は じ め て の プロ ジラ ム で す 。 


この ボタ ン を クリ ッ ク し て 





メッ セー ジ ボ ッ クス を 閉じ る 


1 その 他 の 終了 方 法 
[閉じ る ] ボタ ン を クリ ッ ク し て フォ ー ム を 終了 する は 2 


ツー ル バ ー の [終了 | ボ 


mr タン を クリ ッ ク し て も 、 
この ボタ ン を クリック フォ ー ム を 終了 する こと 


が で きま す 。 


が O) 実行 () 名 り -⑩D 人 
1 | と m 大 思 呈 凍 





第 1 日 1 時 限 目 は じ め て の プロ グラ ム を 作る 





』 





フォ ー ム に 配置 し た コマ ンド ボタ ン を マウ ス で ダブ プル クリ ッ ク す る と 、 コ ー ド ウ 
ィ ン ド ウ が 開き 、 コ マン ド ボ タ ン が 押さ れ た と き に 実行 きれ る プロ シー ジャ が 表示 
され ます 。 


ボタ ン を ダブ ルク リッ ク 
する と … 







コー ドリ イナ RM 
表示 され る 


皿 に に に =rewc| 








剛 還 Private Sub Commsnd1_Click() 





| End sub 





回 シー ジャ に つい て 

プロ グラ ム の コー ド を 、 小 さき な まとまり (プロ ッ ク ) ご と に 区 切っ た も の で 才 。 
Visual Basic で は 、 こ の プロ シー ジャ 単位 で 処理 を 組み 立て て いき ます 。 

プロ シー ジャ の 作成 に は 、Sub ス テー トメ ント や Function ス テー トメ ント を 使っ て 、 
「 こ こ か ら プ ロ シ ー ジ ャ が は じ ま り ます 」 と いう 宣言 を 行い 、1 つ の コー ド プ ロッ ク を 
作成 し ます 。「End Sub」 は Sub ス テー トメ ント の 終了 を 意味 レ ま す 。 


イベ ント が 発生 する と 、 自 動 的 に 「 イ ベン ト プ ロ シー ジャ 」 と 呼ば れる 専用 の プロ 
シー ジャ が 呼び 出さ きれ ます 。 た と えば 、「Command1] と いう コマ ンド ボタ ン を クリ ッ 
ク す る と 「Click イベ ント | が 発生 し 「Commandl Click イベ ント プロ シー ジャ | が 呼 
び 出 され ます 。 

この よう に 、 各 オプ ジェ クト ご と に 対応 し た イベ ント が 設定 され て お り 、 オ プ ジ ェ 
クト 名 と イベ ント 名 を 組み 合わ せ た プ ロ シ ー ジ ャ 名 が 使わ れ ま す 。 こ れ に つい て は 、 
Lesson8 で も 解説 し て いる の で 参照 し て くだ さい 。 











LeSSon1 コマ ンド ボタ ン で メッ セー ジ を 表示 す 


少 コマ ンド ボタ ン が クリ ッ ク さ れ た と き に 、 な に か 処理 を し た い 場 合 は 、 こ の 
[Private Sub Command1 Click0」 プロ シー ジャ 内 に コー ド を 記述 し ます 。 





【 イ ベン ト プ ロ シー ジャ の 宣言 部 分 】 
P ェ ュ ゞ ate Sub Command1 C1ick ( ) 


① (② ③ (④ 


① 他 の プロ シー ジャ か ら の み 参 照 で きる プロ シー ジャ 「Private」 の 指定 。 省 略 可 
能 で す が 自 動 的 に 入力 され て いる の で 省略 する 必要 は な いで し ょ う 。 

②Sub ス テー トメ ント 。 プ ロ シ ー ジ ャ の 開始 を 宣言 し ます 。 

③ オ プ ブ ジ ェクト 名 。 処理 の 対象 と な る オブ ジェ クト の 指定 で す 。 

《④ イ ベン ト 名 。 処理 の 対象 と な る イベ ント 名 で す 。③ の オブ ジェ クト と 「 | ( ア 
ンダ ー ス コア ) で つない で 記入 し ます 。 


メッ セー ジ ボ ッ クス を 表示 する 機能 は 、MsgBox 関数 が 行い ます 。 関数 名 
| MsgBox| の 後に 、 表 示し た い 文 字 を "(半角 引用 符 ) で 囲ん で 記述 し ます 。 


【MsgBox 関数 の 書式 】 


MsgBox me8s8ade 


meS8ag@G 表示 する メッ セー ジ を 記述 し ます 。 文字 列 は 引用 符 で 囲み ます 。 


関数 は 、 あ る 値 を 指定 し て 実行 する と 、 実 行 結果 を 値 で 返し て きま す 。 た と えば 、 
Sin 関数 は 、 あ る 角度 を 与え て 実行 する と 、-1 か ら 1 の 間 の 値 を 返し て きま す 。 ま た 、 
FileLen 関数 は 、 フ ァイル 名 を 指定 する と 、 そ の ファ イル の サイ ズ を 返し て きま す ( 関 
数 に よっ て は 、 引 数 を 持た な いも の や 、 値 を 返さ な いも の が あり ます )。 


Visual Basic で は 、 さ ま ざ ま な 関数 が 用 意 さ きれ て お り 、 行 いた い プ ログ ラム の 処理 に 
合わ せ た 関 数 を 使っ て プロ グラ ム を 作成 し て いき ます 。 

MsgBox 関数 は 、 実 際 に は 多く の オプ ショ ン 設 定 が で きる の で す が 、 メ ッ セ ー ジ を 
表示 する だ け で あれ ば 、 こ の 書式 で 実行 で きま す (正確 な 書式 は 巻末 の 関数 リフ ァ レ 
ンス を 参照 )。P.192 一 P.194 で は 、 き さら に MsgBox 関数 の 詳し い 使 い 方 を 解説 し て いま 
生 





第 1 日 1 時 限 目 は じ め て の プロ グラ ム を 作 ら 





| MsgBox」 と 入力 し た 時 点 で [パラメータ ヒント | が 表示 され ます 。 これ は 、 
MsgBox 関数 で 入力 可能 な パラ メー タ を 即座 に 表示 する 機能 で す 。MsgBox 関数 の 
場合 は この よう に 表示 きれ ます 。 パ ラメ ー タ ヒン ト を すぐ に 消し た いと き は 、FEsc 
キー を 押し ます 。 


Projisct1 - Form1 (コー ト ) バラ メー タヒン ト 
[Commanad1 <| Click マ 


Private Sub Command1_Click 0 
MsgBax | 
Ms 









っ 4 
Banx 
End Box(CPrpmpr [gurrons 有 コ = vbMsgBoxStyls = vbOKOnly] [ 五 g] [ge 所 [Coorsx 出 ま = ybMsgBoxRssult 


二 4| | ビレ 


MSdBOx ( P エ omp 上 , [Bu ヒモ on As VbMsgBoxSt モ 1e = ゞ で bOkOn1Y] , 
[Ti モ 上 1e] , [He1pFi1e] , [Contex モ 上 ] ) As VbMsgBoxResu1 モ 上 





作 。。 MsgBox に 続け て 「" は じ め て の プロ グラ ム で す 。"| と 入力 し ます 。 コ ー ド は これ 
で 完成 で す 。 右 上 の [閉じ る ] ボタ ン を クリ ッ ク し て コー ドウ ィ ン ド ウ を 閉じ て お 








きま し ょ う 。 
上 識 Poieodi に formtCh19 。 | ーー 計上 
「 |Command1 <| Click 
| Privyate Sub IP す 四 
| MsgBox "はじめて の ゴロ ダグ ラム で す 。“ 本 3 
| End Sub この ボタ ン を クリ ッ ク 
| まり 障 還 | ク 


de ブシ トー し て 

コー ドウ ィ ン ド ウ を 呼び 出す に は 、①F7 キー を 押す 、② [表示 ] メニ ュー か ら [ コ 
ー ド ] を 選択 する 、③ 配 置き され た オブ ジェ クト を ダブ ルク リッ ク す る 、 の 3 種類 が あ 
"まっ - ず 。 

コー ドウ ィ ン ド ウ の 上 に ある を クリ ッ ク す る と 、 項 目 が リス ト 表 示さ れ 、 オ プ ジ 
ェクト や イベ ント を 選択 する こと が で きま す 。 左 に は コー ド を 記述 可能 な オプ ジェ ク 
ト の 一 覧 が あり 、 右 に は イベ ント (プロ シー ジャ ) 一 覧 が あり ます 。 コ ー ド が 記述 さき 
れ て いる イベ ント プロ シー ジャ は 、 太 字 表 示 に な っ て いま す 。 


太字 に な っ て いる 


オブ ジェ クト 一 覧 











LeSSOn1 コマ ンド ボタ ン で メッ セー ジ を 表示 す 


Visual Basic で プロ グラ ム を 作成 する 場合 は 、 

(① フ ォ ー ム と コン トロ ー ル で ユー ザー イン ター フェ イス を 作成 する 

②⑥ ぐ フォ ー ム や コン トロ ー ル の プロ パテ ィ を 変更 し 、 外 観 を 整え る 

③ プ ログ ラム の 動作 を コー ド で 記述 する 

と いう 流れ に な り ま す 。 

フォ ー ム や コン トロ ー ル は 、 あ くま で も 見 た 目 や ユ ー ザ ー の 操作 を 受け 付け る 外観 


を 作成 する も の で あり 、 間 コン トロ ー ル の 実際 の 処理 は 、 コ ー ド を 記述 し て 作成 し ま 
す 。 


メッ セー ジ ボ ッ クス の メッ セー ジ を 「 こ ん に ち は 、 み な さん ! 」 に 変 
えて 表示 する よう に し て くだ さい 。 


解答 は 巻末 に 一 





者 馬 ワン ポイ ント アド バイ ス 


コン トロ ー ル を フォ ー ム に 配置 する に は 、 ツ ー ル ボッ クス の コン トロ ー ル アイ コン を 
クリ ッ ク し 、 フ ォ ー ム の 上 で マウ ス の 左 ポ ボタ ン を 押し な が ら ド ラッ グ し ます 。 適当 な サ 
イズ に な っ た と ころ で ボタ ン を 離す と 、 そ の 大 きぐ さ で 確定 し ます 。 








| ドラ ッ グ す る 


ある い は ツー ル ボ ックス の コン トロ ー ル アイ コン を ダブ ルク リッ ク す る と 、 標 準 的 な 
大 き さ の コン トロ ー ル が フォ ー ム の 中 心 に 配置 され ます 。 





第 1 日 1 時 限 目 はじめ て の プロ グラ ム を 作 ら 


LOT 
HHH HHBH 
HH [| 時 8 


ル ん らら S$ の 22 


1 時 限 目 
は じ め て の 


プロ グラ ム を 


ココ Lesson02 


う Learning Edition 








終了 ポタ ン を 追加 する 


復 仏 の コマ ンド ボタ ンコ ント ロー ル を 使う 際 の プロ シー ジャ の 使い 分 け 


を 覚え ます 。 


し ラ 回 作成 する プロ グラ ム 





この ボタ ン は 
LessSon]1 と 同じ 


終了 この ボタ ン を 押す と … 





プロ グラ ム が 終了 し て 
ダイ アロ グ ボ ックス が 閉じ る 


最初 に 作成 し た プロ グラ ム に 、 プ ログ ラム を 終了 する た め の ボ タ 
ン を 付け ます 。 ボ タン は 、 コ マン ド ボ タ ンコ ント ロー ル を 使用 し 、 
ここ に プロ グラ ム を 終了 ご させ る ステ ー ト メン ト 「End」 を 記述 し ま 
- 

ステ ー ト メン ト と は 、 プ ログ ラム の 流れ を 制御 し た り 、 コ ー ド を 
書 さ や すく する な ご ど 、 プ ログ ラム 作成 を 行う 上 で 必要 な 命令 の こと 
で す 。V び isual Basic の プロ グラ ム 作 成 は 、 こ れ ら の ステ ー ト メン ト 
を 組み 合わ せ て 、 オ ブ ジ ェクト の プロ パテ ィ や メソ ッ ド を 操作 し て 
行い ます 。 

ここ で は 、 コ マン ド ボ ポタ ンコ ント ロー ル の サイ ズ の 変更 や 、 ポ ボタ 
ン 表 面 の 文字 を 変更 する 方 法 を 覚え ます 。 ま た 、 コ マン ド ボ タ ン が 
提 さ れ た と き の 処 理 (イベ ント プロ シー ジャ ) の 作成 方 法 を 覚え ま 
す 。 











LeSSOn ら 終了 ボタ ン を 追加 する 





使用 する プロ ジェ 
ベク ト 


Lesson1 で 作成 し た プロ ジ 
ェクト を 引き 続き 使用 し 
て こさ y>。 


また は 、CD-ROM の 


ラフ 「 Lesson01| フォ ル ダ に あ 
Co まで いい コッ る |Lessonl.vbp」 を 使用 


し て くだ さい 。 








フォ ー ム 上 で ドラ ッ グ し 、 コ マン ド ボ タ ンコ ント 
ロー ル を 1 つ 作 成す る 


| id 





< ぐ きき ポタ ン の 作り 方 


ボタ ン の 作り 方 は Lesson1 





ここ を ン リ ッ ク 


で 0 まま ポ に て まあ 
ドラ ッ グ 





第 1 日 1 時 限 目 は じ め て の プロ グラ ム を 作る 


ノン 

グ 値 の 変更 方 法 
プロ パテ ィ の 値 を 変更 す 
る 方法 に つい て は 、 
Lesson1 を 参照 し て くだ き 
い 。 


> グフ ルク リッ ク で 
ペ プ の 編集 
林寺 ィ ウォ キシ ド ピ ドウ 
プロ パテ ィ を 変更 する と 
き 。 オ プ ジ ェ クト 名 や 値 
の 部 分 を ダブ ルク リッ ク 
する こと で 値 が 選択 状態 
に な り 、 す ぐに 編集 に と 
と も ちろ ん 
と * も か まい ませ 
ん 。 グ リッ ク の と き は 値 
の 部 分 を クリ ッ ク し ます 。 


ニー ドウ ィ ォ ン ドウ 
ぐ プ の 開き 方 


コー ドウ ィ ン ド ウ の 開き 
方 は 、Lesson1 と 同じ で す 。 
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作成 し た ボタ ン を 選択 し 、 プロ パテ ィ ウ ィ ン ド ウ で 
[Caption] プロ バテ ィ の 値 を | 終了 | に 変更 する 





月 生 Ti に ae の ら 








Command2 ommandBiutton ャ 


王 1 本 | 上 | 





に こ を ダフ ルク リロ リック 


| | &H8HHHInF& 


F ョ ほ = 


終了 終了] を 入力 


au=e== alidation True 


Deafau ト F ョ |== 
DisablsdPicturs (な し ) 


<| 





ポタ ン を ダフ ルク リッ クツ ク し て コード ワイ ィ イン ドウ を 
表示 し 、 コ ー ド を 記述 する 












Priyate Sub CowNS&d1 _Elick() 
MsgBox “はじめて の ゴロ ダグラム で す 。“ 
End Sub 


半 て Sub Eommand2 [lick() 
ー! Suh 









ここ に コー ド を 書く 





LeSSOn ら 終了 ボタ ン を 追加 する 





S・ た 2 


プロ ジェ クト を 解放 する に は [ファ イル ] メニ ュー か 





ら [プロ ジェ クト の 解放 ] を 選択 


まま 
t1 - Microsoft yisual Basic | テ サ イソ | 










新 し し ワリ ロ ジェ クト NND CtrFN 
| 7m シ テト を 開く ⑥). 
フ 7 ロ ジェ の 追 吉 (D). 


jp の 3) 


回 2 ロジ ウト の 上 書き 保存 
名 前 を 付け て う ロ ジェ リト の 保存 ED- 


Forml.frm の 上 書き 保存 ③) cwhs 
名 前 を 付け て Fermi frm の 保存 ぬ ). 











Microsoft Visual 日 asic 


次 の フイ 遇 に 変更 点 を 人 光 存 し ます か 







新しい フォ ル ダ を 作成 し フォ ル ダ 名 を 「Lesson0g」 


と 名 付け 、 そ の フォ ル ダ を ダブ ルク リッ ク で 開く 


名 前 を 付け て ファ イル の 保存 。。 lxl 


促 3 瘍 所 Q | ココ oe 司 回 避 | 品 計 





ファ イル 名 ⑱): rr 
ファ イル の 種類 7 わ ォ ー ム キュール "人 m) 





ここ を ダブ ル 
(フク 








ファ イル 名 ⑬) fFoy ml frm 保存 ⑤) | 
ファ イル の 種 直 ) わ +ー ム キツ ュー ル frm) <| キテ キャンセル | 


へ ルプ (HH | 


に ニケ グリ ロッツ 
に こ に グ リッ ツク 





プロ ジェ クト の 
く プ 双 友 と 保存 


プロ グラ ム を 作り 終え た 
らい っ た ん プロ ジェ クト 
を 解放 する か 、 も し く は 
ファ イル を 保存 し て お き 
ま に よ サ 。 


ナゼ ジン エ クタ ト ファ オル 才 
閉じ る こと を プロ グラ ミ 
ング 用 語 で 「 解 放 | と 呼 
あん で い ます 。 こ 札 は プ 昌 
ジェ クト が 使用 し て いた 
メモ リ を 他 の プロ ジェ ク 
ト が 使え る よう に 解放 す 
る た めそ う 呼 ば れ て いま 
も 


プロ ジェ クト が 保 
ぐ ァ 存 さ れ て いな いと 
き は ? 


プロ ジェ クト が 保存 され 
て いな いと き は 、 左 図 の 
よう な ダイ アロ グ ポ ボッ ク 
ス が 表示 され 、 作 業 の 変 
更 点 を 保存 する か どう か 
だ ず ね て きま す 。 


レッ ズン 用 フォ ル 
くず タ を 作る 
が 和英 交 と に プロ ジテ 
クト を 保存 する フォ ル ダ 
を 作っ て お き 、 後 で 整理 
し や すく し ます 。 





第 1 日 1 時 限 上 月 はじ め て の プロ グラ ム を 作る 


ぐ プ 保存 の 順序 


新しい プロ ジェ クト を 保 
存する と き は 、 フ ォ ー ム 
の 保存 一 プロ ジェ クト の 
保存 、 と いう 順番 に な り 
ます 。 フ ォ ー ム の 拡張 子 
まほ ま 1fzml、 プロ ジェ クタ ト 
の 拡張 子 は |「.vbp」 と な 
っ て いま す 。 


ぐ フロ ジェ クト 解放 


プロ ジェ クト を 解放 し た 
後 は オプ ジェ クト ウィ ン 
ドウ に は 何 も 表 示さ れ な 
く な り ま す 。 


ぐ ポタ ン で 保存 


[プロ ジェ クト の 上 書き 保 
存 ] ボタ ン を 押し て 保存 
まる こと も で きま す 。 





プ ォ ー ム だ け を 
ぐ タ 保存 する 


プロ ジェ クト を 保存 せ ず 
に 、 フ ォ ー ム だ け を 保存 す 
の と も ち も ち で きま よ 。 し フナ 
イル | メニ ュー か ら 
[Form1 の 上 書き 保存 ] を 
選ん で くだ さい 。 






フッ ,E) 編集 CE) 表示 ) )m シ ェクト P) 書式 の 
| 町 LLm シ zz2 ト ChN 
| 層 7m ェ を 匠 (6⑨- CwkQO 
| 52 の 追加 の 
| フ mz=2 ト GOWNX 


間 間 SR 
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[Form1.frm」 の 名 前 で フォ ー ム を 保存 し た 後 、 続 け 
て 「Lesson ら .vbp」 の 名 前 で プロ ジェ クト を 保存 


N に リッツ 










| ファ イル 名 ⑩⑱) IForm1 frm 
| イル の 棒 類 G) ュー ムキ モバ ュー ル で frm) 
' 


アカ 作 名 
、 カ 人 の 種類 






わ m ェ 2 ト ファ イル Gvbp) 


ここ を グ ワック 


ーー ンーーーーーーー ペ ーー 


デ プロ ジェ クト が 解放 され た 





=」 ロ | 


2 理 D mQO Po 午 内 O チバ 玩 y 25-Mp "54⑪ クー8CD AD の < 小 ウ AD ^ ま DVD 05 
| 9 うさ ・ そば 欠き ーー ,。 sa SS らき 交 中 の も eo messe 













フロ ポル イア タダ や ギク 
スプ ロー ラ の 表示 
が 空 に な る 


全 プ ロジ ェクト の 保存 


プロ ジェ クト を 保存 する に は [ファ イル 」 メニ ュー 
か ら 「[ プ ロジ ェクト の 上 書き 保存 ] を 選択 する 


ms 導 | ここ を クリ ッ ク 
用 | ここ を クリ ッ ク 








上 ファ イル (F ト - 2 『 選 ` SO _ nn こち は Zm い すす の 






別 y 時 1 


| 新 し し リサ ジェ 2 ト ⑪D cvhN_ 
| フロ = ト を 義 く ⑥- 、 CwhO 





フロ シェ 9 ト の 追加 (D).. 
mr2 ト の 交 放 (ED 





a 『 朋 1 まま 了 ーー EE 
| ' 人 前 を 人 けけ て コト の 人 
Formt frrm の 上 書き 保存 S) So 
| ce Forml.frm の 
| 


| 





に プー テ 
3 月 日 守 ご ネイ 3 








LeSSOn ど 終了 ボタ ン を 追加 する 





人 Q ぐ プロ ジェ クト を 開く | 


保存 し た プロ ジェ クト を 開く に は [ファ イル ] メニ 
ュー か が から [プロ ジェ クト を 開く ] を 選択 する 









ym ェ 外 の 本 旋 QB 


回 mh シト の 上 書き 保存 め 
名 前 を 付け て > な 外 の 休息 


FormtLfrm の 上 書き 保存 ③ Ok 
名 前 赤 付 け て Form1i frm の 保存 ぬ ) . 


rm。 ア ーー ドー 。 


ダイ アロ グ ボ ックス で 先ほど 保存 し た 「Lesson2.vbp」 
を 選択 し 、[ 開 く ] を クリ ッ ク す る 





| 央 仙 の 2 イル | 最近 使っ た う ァイル | 


フ 27f ル の 場所 ⑪: | 3 sssonoe 回 | | 還 | 


Nm ー 箇 四 | ここ を クリ ッ ク 


| | ここ を クリ ッ ク 





人 プロ ジェ クト が 開く 





| MO 編集 GE) 表 二 0 書式 GO) デカ の YO) 実行 CB) 旬 り -① 全う A⑩ クール D 7 トイ AD 9 トウ の へ 2GD 。 
に a SG ぜ タ mwewo 過 ox 「 












Project1 (lesson2 vbp) 
和博 % フォ ー ム 
Form1 Fcrmi frm) 





ーー 


0 2 EK CE の お SR SR 2 EE 0G っ 生生 し 28 つ S 


7 3 まっ 生 2 


* わ ツテ 外 名 ) 
0 介する わ ツ 22 する た 


第 1 日 





生 l2oxs-1n 


ぐ ポタ ン で 開く 


ツー ル バ ー の [プロ ジェ 


クト を 開く ボタ ン を ク 
リッ ク し て も 同じ 操作 が 
で きま す 。 





[最近 使用 し た 
ァイル 」] 


[最近 使用 し た ファ イル |] 
ゲッ クリッ ク す る と 、 
以前 に 使用 し た ファ イル 
の リス ト が 表示 きれ ます 。 
よく 使う ファ イル を を 擦 
す と き に 便利 で す 。 


D\ GENKOUW16 
D\ GENKOU\10 
D\ GENKOUW16 


me 
9 lesson 1 


ご DHTIMLProject  D\arcwyork 


Lesson18 D\ GENKOU16 
呈 崩 Group1 D\ GENKOUW16 
必 ※ GFKODL 必 1 


フォ ー ム が 表示 さ 
れ な いと き は ? 


プロ ジェ クト を 開い た と 
き 、 何 も 表示 され な いと 
きま : 桂 、。 プロ ジェ ケト ウォ 
ンド ウ か ら フ ォ ー ム を 開 
く 必要 が あり 2 の 


ィ *NY 


くだ さい 。 





1 時 限 目 は じ め て の プロ グラ ム を 作る 





便利 な ショ ー ト 
< カッ ト 
デジ ェクト ウィ ォ ナン シン ドク 


っ ロ ジェ クト の 閉じ る ボタ ン 


も on プロ ジェ クト ウィ ンド ウ の 閉じ る ボタ ン を クリ ッ ク し て も 、 プ ロジ ェ ク 
キー ボー ド の ショ ー ト カ ト が 解放 きれ た こと に は な り ま せん 。 こ れ は フォ ー ム オプ ジェ クト が 閉じ 
ッ ト を 使っ て 呼び 出す こ た 状態 に な っ た だ け で す 。 フ ォ ー ム を 再度 表示 する に は 、 プ ロジ ェクト エ 


と が で きま す 。 知っ て い 














る と 便利 な を ショー トカ ッ グ ス プ ロー ラ が か 条 完 + ナ オーム の デイ コア と タプ フル クッ リン クサ る か 、| ま ボ 」 

ト を 集め て み ま し た 。 メニ ュー か ら [オプ ジェ クト 」 を 選択 し ます 。 

2 ドウ ンド ウ の 表 に 1 

Shift+F フ 2 ^ | fB 細 信 CD 表示 7H ェ 2NP) 書式 @ こい 実行 B) 旬 り -(①D ダ 伯 が 

= ププ ジ ェ ケ トウ ィ シ ンド | 選 ・ ト 四 到 > 回 |%i 中 9 ト = 当 四 管 

Co | 年 「] Pom (For mJ [sa| に 3 

ーー プロパ ティ ウィ ンド ウ 1 
の 選択 

Ctr+Tab 

っ ウィ ンド ウ の 切り 替え 

むい 


ー プ ログ ラム の 実行 


P 7 の 04290 907MP 丘 』 
| 土 ] 5640.3645  : 選 48nox3eo0 











還 フロ ハト 922 ロー-2P)  CwhR 
| 皿 7m ル 7 ィ ウィ トウ ツ の F4 
mm ムリ 7 ウト ウィ ント ツウ の ) 

上 7HA テ ディ ペー ゲ ⑤ Shift+F4 







| IForm1 Form ェ | 2 スー ム ⑦) 語 000 
、 全体 | 項目 別 | | 人 


再 表示 ご れる 
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LeSSOn ら 終了 ボタ ン を 追加 す 











』 


[終了 ] ボタ ン を ダブ ルク リッ ク す る と 、 こ の ボタ ン (Command2) が 押さ れ た 
と き の プ ロ シ ー ジ ャ [Private Sub Command2 Click()」 が 表示 され ます 。 こ こ に 、 
| End」 と 記述 し ます 。End ステ ー ト メン ト は 、 単 独 で 記述 する と 、 プ ログ ラム 自身 
を 終了 させ る 命令 に な り ま す 。 


EnQd 


復 数 の コマ ンド ボタ ン を 配置 し た と き は 、 そ れ ぞ れ の ボタ ン の プロ シー ジャ に 、 そ 
の 処理 を 記述 し ます 。 こ の 例題 で は 、Command] に 「 メ ッ セ ー ジ を 表示 」、 
Command2 に 「 プ ログ ラム を 終了 」 と 、2 つ の 処理 を 6 つの ボタ ン で 実行 する よう 
に 設定 し まし た 。 配置 し た コン トロ ー ル を ダブ ルク リッ ク す る と 、 そ の コン トロ ー ル 
に 対応 し た プロ シー ジャ を 呼び 出す こと が で きま す 。 

コン トロ ー ル を 配置 し 終え た プロ ジェ クト ファ イル は 、 保 存する よう に し まし ょ う 。 
特に プロ グラ ム を イン タプ リタ 機能 で 実行 する と き は 、 不 具合 や エラ ー で シス テム が 
ハル ング アッ プ す る 可能 性 も あり ます 。 一 度 保存 を し て か ら プ ログ ラム を 実行 し た 方 が 
も で し まう 。 

フォ ー ム や プロ ジェ クト ファ イル は 、 別 の 名 前 で いく つも 保存 し て お く こ と が で き 
ます 。 ユ ー ザ ー イ ンタ ー フ ェ イ ス の いく つか の パタ ー ン や バリ エー ショ ン を 保存 し て 、 
あと か ら 再 利用 する こと も で きま す 。 












く c》 練習 問題 


O ひ 1 [終了 ] ボタ ン の 文字 を 「 閉 じ る 」 に 変更 し て くだ さい 。 





解答 は 巻末 に 一 


者 参 ワン ポイ ント アド バイ ス 





Visual Basic で 作成 する プロ グラ ム の 動作 は 、 コ ント ロー ル の プロ パテ ィ を 変更 し 
た り 、 関 数 を 使っ て 組み 立て て いき ます 。 

また 、 処 理 の 流れ を 制御 し た り 、 コ ー ド を 書き や すく する な どの 、 プ ログ ラム 作成 を 
行う 上 で 必要 な 命令 文 を 、「 ス テー トメ ント 」 と 呼ん で いま す 。 





第 1 日 1 時 限 目 は じ め て の プロ グラ ム を 作 し 





< Lesson3.vhp 


⑥) VB6CD 
ョ や Lesson03 


スス 


プロ バテ ィ を 操作 する 
ラベ ルコ ント ロー ル を 使い な が ら 、 コ ント ロー ル の プロ パテ ィ を 変更 す 
る 方 法 を 覚え ます 。 


ラ 回 作成 する プロ グラ ム 





「 ae For il 


ン ォ オー ムル に ジグ ツル 
コン トロ ー ル を 追加 する 


近しい Visual Basic 





ン ヒ リリ で の そつ いて 

プロ パテ ィ と は | 属性 ] の こと で 、 コ ント ロー ル や フォ ー ム の 外観 ・ 形 状 
や 、 動 作 状 態 を 設定 し た り 把 握 す る の に 使い ます 。 た と えば 、 フ ォ ー ム の 
[BackColor| プロ パテ ィ は 、 フ ォ ー ム の 背景 色 を 設定 し ます 。 コ マン ド ボ タ 
ン の [Caption]| プロ パテ ィ は 、 ボ タン 表面 の 文字 を 設定 し ます 

各 コ ント ロー ル に 用 意 き れ て いる [Enabled プロ パテ ィ は 、 コ ント ロー ル 
を 有効 に し た りり 無効 に し た り し ます 。 よ く 。 プ プリ ケー ショ ン な ど を 使っ て 
いる と 、 コ マン ド ボ タ ン が グレ ー 表 示 に な っ て 押せ な い 状 態 に ある の を 見 か 
け ま す が 、 こ れ は [Enabled] プロ パテ ィ を 操作 する こと で 実現 し て いま す 

プロ パテ ィ に は 、 そ れ ぞ れ 決 め ら れ た 「 値 ]」 が あり 、 こ れ を 変更 する こと 
で 設定 を 行い ます 。 前 述 の [BackColor| プロ パテ ィ で は 、 色 を 16 進 数 で 指定 
する よう に な っ て いま す 。 同様 に 、[Caption]」 プロ パテ ィ で は 直接 表示 し た 
い 文 字 列 を 設定 し ます 。 

プロ パテ ィ は 、 そ れ ぞ れ の オプ ジェ クト ご と に 何 種類 も 用 意 き れ て お り 、 
値 の 設定 や 読み 出し 人 (| 参照] と いい ます ) が で きる よう に な っ て いま す 。 プ 
ロ パ ティ の 値 の 設定 は 、 プ ロ パ ティ ウィ ンド ウ で 行う か 、 コ ー ド で 式 を 作成 
し て 行い ます 。 ま た か 、 プ ロ パ ティ 持 キ オプ ジェ クト ご と に 用 本 され て いる だ の 。 
プロ パテ ィ を 操作 する 場合 は 、 必 ず ど の オプ ジェ クト の プロ パテ ィ を 変更 す 
る の か 、 対 象 と な る オプ ジェ クト を 指定 し ます 。 


ラベ ルコ ント ロー ル を 使っ て 、 フ ォ ー ム に 文字 を 表示 し ます 。 ラ 
ベル コン トロ ー ル は 、 文 字 を 表示 する コン トロ ー ル で す 。 ラ ベル コ 
ント ロー ル の [Caption] プロ パテ ィ と 【[Font] プロ パテ ィ を 使っ 
て 、 表 示す る 文字 を 設定 し ます 。 ま た 、[BackColor」 [ForeColor」 
プロ パテ ィ を 操作 し て 、 文 字 色 と 背景 色 も 設定 し て み ま し ょ つう 。 





LeSSOn3 プロ パテ ィ を 操作 する 


ロー ル と プロ パテ ィ の 設定 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 新しい プロ ジェ ク 
< ト の 作成 


』 新しい プロ ジェ クト と フ 
Ke ォ ー ム を 作成 する に は 、 
ツー ル ボ ックス の [Labell ボタ ン を クリ ッ ク す る [ファ イル ] メニ ュー か ら 
[新しい プロ ジェ クト ] を 

放 Project1 - Mirosoft Visual Basic [ デ サ イ リ 」 選択 し 、[ 新 し い プ ロジ ェ 


ーー ーー * ー さ いさ おく クト | ダイ アロ グ ポ ボッ ク 
此 (F) 編集 } IN ) ッ } g J す ・ デ 
| 有 ・ ロ ・ 前 層 回 5 映 替 殊 つ ど | し て [OK] を クリ ッ ク し 












し ます 。 
| この ボタン を "ラベ リル 
SS クワ ッ ク シク 
抽 20 も っ の ちい 220 の の Pe ニャ プロ グラ ム を 実行 し た と 
II き に 、 ユ ー ザ ー が 変更 で 
キシ ! き な い テキ スト の こと で 


も 凌い 全 
NR_ JSP.JRAP、 KEKLJSRORK_ 2 28GN JWP_ESME WE 52 2760R 2 Si 
人 


信二 あの 本 に 2 感じ 三 和 こら 導 8 家 EB あ す 生 の 坦 抽 > 電 2 に っ 本 に に : 了 CHo 論 ら 





本 直す る 


く タ ドラ ッ グ 中 は … 


マウ スポ イン タ を ドラ ッ 
グ す る と 、 人 作成 さ れる コ 


て の まま ここ まで ント ロー ル の 大 き さ が 上 自 
ー ドラ ウッ ジグ い 四 角形 の 枠 で 表示 され 
2 も し も 2 シー ンー ま や ee こき aa つの の つつ x 615 ます 。 


幸二 の 2 二 本 
電信 本 0 つ 遼 Co に 電 に と 癌 て は 2 主人 FES5 硬 に スト 緒 に コ 生 人 ECCO こ っ 仙 に コ っ 
AE で 和光 97c、 やあ K Ge 導 う 5Or 3 っ > Zr GEE の - ご 和 9 や の) 王 和 (CX YY SC PMS DE まっ AX な CCr 03985 に Ce 22G 和 5 2 マイ を SC SR ST と 0 てら っ 和 8 を 3 YE. 
0 枯 S も 3 夫 CC 二 2 電 0 の も け 机 を SS 全 R い 本 に 2 靖 あ に 六 ス の 要 
5C 導 は に 本 2 ンー の に 拉 本 5E 本 に 訂 に っ 二 い の い つ こ 可 に くに 5 
2 い eiN2 答 0 誠 介 0IC2 枯 0 の 2 次 0 が の に (0 電 0K0 剖 5200 境 の に ( 軍 7004 垢 池 て 可 つ 人 
た 
人 
7 JR 5 まえ 、 た きれ S 5 2 2 20200 3 3 0R 六 要 は あぶ 、 08. と 0 と > 人 9、 > 2 Aa うか 2 
2 
共に し CO 締 と うっ 電 20G コ コ 義 cl 際 CcEP 位 COCP い SO 導 に 2 人 に の 
0 計 00 机 0 に HI 六 の 信 
和博 和 OM らく 522 し g220 あ 5 人 に KC 人 っ 電 1 の よ ら CO あ て 六 人 
人 


貫き わい: 人 の 緩い 


第 1 日 ら 時 限 目 は じ め て の プロ グラ ム を 作る 


2 ス 和 人 





[Caption] の 
ぐ ダ 仁 を 選択 する 


|Caption] を ダル ブ ク リ 
ッ ク す る と 、 そ の 右側 に 


人 力 き され て いる 値 全 体 が 


大 択 さ れ ま す 。 また は 、 
値 を ドラ ッ グ し て 選択 し 
ます 。 


表 景 の 色 を 指定 
ヽ \ ン する 


[BackColor| を クリ ッ ク 
する と 、 そ の 右側 の セル 
の 右端 に 下向き 三角 の ボ 
タン が 表示 きれ ます 。 こ 
の ボタ ン を クリ ッ ク す る 
と 、 カ ラー パレ ッ ト が 表 


ぐ ダ タブ を 切り 替え る 
前 回 操作 し た と き の 状 態 
まそ も 村 。 | アス テム 」 
タプ が 表示 され て いる こ 
と が あり ます 。 そ の 場合 
は 、[ パ レッ ト ] タブ を ク 
リッ ク し て カラ ー パ レッ 
ト を 表示 し て くだ さい 。 


きだ sh4tsla 


に ョ ption 吐 上 L WWisual 日 asic 
| Dat ョ F je 


| Dat ョ For mat 


| |DD= ョ r ョ ヨロ 1 ご 30  〔 {〔{ 4 
一 uto ら に = F ョ |== 


プロ バテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ の 値 
を 「 楽 し い Visual Basic」 に 変更 する 


DI 





ILsben Labsl ッ | 
全体 | 項目 別 | 






| LDPearanCe 1 ご は か 
ButoSise 
BackColc 
BackSty 
BorderS+ 凡 = 












m 導 | ここ を ダブ ルク リッ ク 


の [楽し い Visual 
Basic」 と 入力 


[BackColor] プロ バ パテ ィ を クリ ッ ク し 、 右 側 の セル 
に 表示 され る 下向き 三角 の ボタ ン を クリ ッ ク す る 


m 導 | ここ を クリ ッ ク 


ココ ! ミ 己 
[| &H8nnnnnnF& 暑 ' 
1 - 二天 B 明 
ロ - な し 
九 LL yisual Basic 


DataField ] 
Dat ョ Format て | | 





DP 
』Label1 Labsl 
全体 | 項目 別 | 














DD ら ョ 「 ョ ロ 中 ら 1 - 3D 
も to に ら F 引 == 
に EAI に ET | &H8nnnnnnF& ここ を を クリック 
BackSty|e 1 - 二天 明 
| BordsrSty|= ロ n- な し 











5 カラ ー バ レッ ト が 表示 され る 


Co ング ナリ テン 





圏 諾 HUUFFFFFF& 





LeSSOn3 プロ パテ ィ を 操作 する 


G① [バレ ッ ト ] タブ で 青色 を 選択 する 


| 訟 HUFFUUUD& 

















[ForeColor| プロ バ パティ を クリ ッ ク し 、 右 側 の セル 
に 表示 され る 下向き 三角 の ボタ ン を クリ ッ ク す る 


Label1 Labsl = 
生 1 本 | 項目 別 | 









m 間 | ここ を クリ ッ ク 
用 | ここ を クリ ッ ク 






Indg 
Left 
MK = 





第 1 日 ら 時 限 目 


色 が 16 進数 で 
ヘン 表示 され る 


選択 し た 色 が 16 進数 の 値 
>" と る 育 色 を 表 
す 16 進 数 の 値 は 、 
「&HOOFE0000&.」 と な り 
ます 。 


の [ForeColor] を 
ヽ ン 表示 する 


IForeColor」 が 隠れ て い 
て 上 移 え な いと き は 。 プロ 
パテ ィ ウ イィ イン ドウ の 右端 
に ある スク ロー ル バ ー を 
使っ て 、 画 面 を スク ロー 
上 レレ そ くだ さい 。 







1 - 3D 
Falss 
目 &H8000OOOF& 

1 - 不 天明 
n- し 
| 隊 し し Visual Basic 


|BackColor」 と 同様 に カ 
ラー パレ ッ ト が 表示 され 
ます 。 


は じ め て の プロ グラ ム を 作る 





ぐ マ 字 の 色 か 変わ る 


[楽し い Visual Basic」 の 
文字 が 黄色 に 変わ り ま す 。 


典 色 を 表す 16 進数 の 値 は 、 
| を HO000FFFF&」 と な り 
ます 。 


> みみ [フォ ント の 指定 ] 
バ で ダイ アロ ン 

ここ で は 、 ラ ベル の テキ 
スト の フォ ント 、 フ ォ ン 
ト サ イ ズ 、 文 字 飾り 、 ス 
タイ ル を 設定 する こと が 
で きま す 。 
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し タブ て 半 を 選択 する 


MS P コ シッ ク 

し 請 請 Se 
が by ト | | 

ーー トト し ト 上 上) 














m 較 | ここ を クリ ッ ク 








10 [Font] プロ バテ ィ を クリ ッ ク し 、 右 側 の セル に 
表示 され る […] ボタ ン を クリ ッ ク す る 


ID 
Label1 Labsl 





し と タン トリ リン 7 


こと な を ググ サ ッ ク 





ForeColor | | &HIHUHFFFF& 
Hsight 515 
Indsx 


Leaft 8H 





メ %1 ル Y) 









MS ea ar せ 





MS Serrf 
T MS ゴシック 
MS B 朝 
Roman 
「 取り 消し 線 (⑯O ] 
、 書 ! ま の 種類 
| 日 本 語 ・| 


ンー ペペ ダーツ デー ペペ ペン ペン ペペ em ペー バーズ パー の ツン ee ペーーーー ペ ンー ペー デー トー 


LesSSOn3 プロ パテ ィ を 操作 する 


プ こ 変 1 1 v ぃ 
上 人 ツイ ズ ] を 「18] に 変更 し 、[OK] を クリ ッ | 9 っ 店 wys 


サイ ズボッ クス に 直接 
118」 に 変更 「18] と 入力 する こと が で 
きま す 。 た だ し 数 値 の 入 
力 は 半角 文字 で 行っ て く 






















だ さい 。 
MS ei Ser rf ホー ルド 
MS Serif ホー ルド イ 8 め 9 
二 MS 本旨 - ES 
Roman て | 
文字 師 り サ り フル 
「 取り 消し 線 ($O 
| 下線 ( む ) | Aa ああ アア 亜 宇 
書 | ま の 種類 'B 
] 日 本 語 <| 
LAlignment] を クリ ッ ク し 、 石 側 の セル に 表示 | < と 
され る 下向き 三角 の ボタ ン を クリ ッ ク す る ーー 
トド 向き 矢印 ボタ ン を クリ 
7 ロバ パティー Labell | ッ ク す る と 、 配 置 の 一 






| が 表示 され ます 。 
Label1 Labsl m 間 | ここ を クリ ッ ク 
全 人 本 | 項目 別 | | 
(フツ ェ 小 名 ) 
- 用 | ここ を クリ ッ ク 















Labsl1 
ag 
刷 DD= ョ r ョ ロー 1 呈 m だ さき [z1 
品 utoS に ら ! - 石 拉 え 


- 中 央 揃え 


















BackColor WTrrmrrrDunmre 

BackStyls 1 - 本 透明 

BorderStyl= ロ n- な し 

Caption 楽し し isual Basic 
DataF js ld て | | 


第 1 日 時限 目 は じ め て の ブ プログ ラム を 作る 
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ど 、 ジ ee 
ング [中央 揃え ] 


LAlignment| は | 配置 
と いう 意味 で す 。 ラ ベル 
コン トロ ー ル に 対し て 
テキ スト を どの よう に 配 
直す る の か と いう 設定 を 
行い ます 。 [| 左 揃え ] [ 右 
捕 え 」 [中 央 揃え | の 3 種 
類 が あり ます 


ジ グラ ム を 実行 する 
実行] メニ ュー か ら 「[ 開 
始 |」 を 選択 し て プロ グラ 
ム を 実行 する こと も で き 
まま 。 


の る 生 の の で 
を 書い て いな の で 何 も 
動作 し ませ ん 。 その まま 
終了 し て くだ さい 。 


1 うぅ 


1 うる 


一 覧 か ら [中 央 捕え ] を 選択 する 


PID 





Label1 Labsl 
全体 | 項目 朋 | 









Labe 1 
Ta ・ 
必 D ロ = ョ 「 ョ ヨロ ご ら 
to っ ご に ら 


BackColcr 


m 導 | ここ を クリ ッ ク 


BackStyle= 1 - 二天 B 明 
BordsrSty|= 0 - な し 
Caption 楽し し yisual Basic 


Dat ョ F je マ | 


』 ビ 文字 が コン トロ ー ル の 中 央 に 配置 され る 





ツー ル バ ー の [開始 」 ボタ ン を クリ ッ ク (P.8 
参照 ) し て プロ グラ ム を 実行 する 





中 、F or mi | 


楽し い Visual Basic 








LeSSOn3 プロ パテ ィ を 操作 す 


コン トロ ー ル の プロ バテ ィ に は 、 外 観 を 決定 する プロ バテ ィ と 動作 を 決定 する プロ 


パ バ パティ の ら 種 類 が あり ます 。 今回 操作 し た 外観 を 決定 する プロ パテ ィ に は 、 コ ント ロ 
ー ル の 細か い 部 分 を 変更 で きる 様々 な プロ パテ ィ が 用 意 さ ご され て いま す 。 















る c》 練習 問題 


OH に ey トロ ー ル の 背景 色 を 緑色 (SHO0000COOS) に 変え て くだ 
さ し 


解答 は 巻末 に 一 
6 アン ラベ ルコ ント ロー ル の フォ ント を 「MS 明 朝 」 に 変え て くだ さい 、。 


解答 は 巻末 に 一 


者 馬 ワン ポイ ント アド バイ ス 


コン トロ ー ル の プロ バテ ィ を 変更 する と き は 、 必 ず フ ォ ー ム 上 で その コン トロ ー ル を 
選択 状態 に し ます 。 コ ント ロー ル を 選択 する こと で 、 プ ロ パ ティ ウィ ンド ウ に 表示 され 
る プロ バテ ィ が 切り 替え られ ます 。 

コン トロ ー ル が 選択 され た 状態 に な る と 、 コ ント ロー ル の 周囲 に 黒い 四角 形 が 表示 さ 
れ 、 プ ロバ ティ ウィ ンド ウ に は 「Label1」 と 表示 され ます 。 






ILabsii Label 回 
全体 | 項目 別 | 」 









1 - 3D 
utoS に ら False 
較 :HOOFFOO00& 

| IBsckStyls 1 - 不 退 明 

0- な し 

楽し し Wisual Basic 







Dat ョ Fijel ロ 
DataFormat 
DatalMsmbesr 











第 1 日 ら 時 限 目 は じ め て の プロ グラ ム を 作 の 


プロ バテ ィ へ の 値 の 代入 


マ ワ ウス や メニ ュー で は な く 、 コー ド で コン トロ ー ル の プロ パティ を 夜 更 
する 方 法 を 覚え ます 。 





'@ 今回 作成 する プロ グラ ム 





| ld 





楽し い Visual Basic 


ヨコ Lesson04 





り Learnin Edition 










コー ド の 命令 か ら 、 コ ント ロー ル の プロ パテ ィ を 切り 替え る テク 
ニッ ク を 使っ て 、 コ マン ド ボ ポタ ン で ラベ ルコ ント ロー ル の プロ パテ 
ィ を 探 作 し ます 。 ラ ベル コン トロ ー ル の [BackColor]| プロ パテ ィ 
の 設定 を 変え て 、 コ ント ロー ル の 背景 色 を 切り 替え る 操作 を 、 コ ー 
ド を 使っ て 行い ます 。 











LeSSOn4 プロ パテ ィ へ の 値 の 代入 


邊 コン トロ ー ル と プロ パティ の 設定 





※ 引 き 続 き 、「Lesson3.vbp」 を 使い ます 。 GSGGnS Mb の 
^ ジ ァイル の 保存 場所 
ツー ル ボ ックス の [CommandButton] を クリ ッ ク この ファ イル は 、 付 録 CD- 


ROM の 「Lesson03」 フォ 
する ル ダ に 収録 きれ て いま す 。 





鹿 喘 半 | この ボタ ン を クリ ッ ク 
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フォ ー ム 上 で ドラ ッ グ し て 、 コ マン ド ボ タ ン を 配置 | ww 『 タ ン 全 作成 きる 
する も つ ] つの 方 法 

ツー ルポ ボ ポッ クス の 

Re ーーー 「 [CommandButton] ボタ 
[ ン を ダブ ルク リッ ク す る 

= | と フォ ー ム の 中 央 付近 に 、 
楽し yisual Basic ] 自動 的 に ボタ ン が 作成 き 
「 れ ま す 。 後 は ハン ドル を 


“ 使っ て サイ ズ を 調節 する 
上 。。 だ 7 で ます 。 


「 この 方 法 は ボタ ン 以 外 の 
| コン トロ ー ル に も 応用 可 


ョ に Cammnand 1 「 能 で す 。 
me | を = ュー 率 4 その まま ここ まで ドラ ッ グ 








プロ バテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ の AP 

値 を 「 ピ ンク 」 に 変更 する ーー ポタ ン を 
この 操作 を 行う 前 に 、 作 

rm 。  ! 和 の あ e の て 


4 に タン が 選択 され て いる こ 
ここ を ダブ ルク リッ ク と を 確認 し て くだ さい 。 





Commarnd 1 


1 - 9D 


目 &H8Onnnn0&& 


まま 1 
PT ピン ク ジンク] と 入力 
に ョ us=== alidation True 








第 1 日 ら 時 限 目 は じ め て の プロ グラ ム を 作る 


オブ ジェ クト 名 の 
\ ン 変更 


オプ ジェ クト 名 を |Pink 
に する の は 、 コ ー ド を 記 
述 す る 際 に プロ シー ジャ 
を 参照 し や すく する た め 
室 。 








PP 

ヽ ぞ ボタ ン を 選択 
この 操作 を 行う 前 に 、 作 
成 し た [Command2] ボ 
タン が 選択 きれ て いる こ 
と を 確認 し て くだ さい 。 


うろ 





』 じ ommand1 CommandButton 





[( オ ブ ジ ェクト 名 )] プロ パテ ィ の 値 を 「Pink」 に 変 
更 す る 


ガ li が y rl 









m 導 | ここ を ダブ ルク リッ ク 





全体 | 項目 別 | 










EE っ 本 議 Pi アン 「Pink| と 入力 
必 D ら ョ コロ ご ら 1 - 3D 
BackColcr | | &H8nUHnnHA& 


| に ョ nce| F 引 == 





Caption ピノ クツ 
au===V alidation True 
Default F ョ |== 
DisablsdPicture (な し 


ツー ル ボ ックス の [CommandButton] 記 を ンク 
リッ ク し 、 も う 1] つ コ マン ド ボ タ ン を 配置 する 





う 





楽し い Visual Basic | 





に te の ンプ リッ ン 





に ーッ プ 
ドラ ッ グ 


て の まま ここ まで 


プロ バディ ワウ ワ ィ ンド ラウ で Captionl プロ バ パティ @ の 
値 を | 緑 ] に 変更 する 


日 バ ティ イー Command2 








Command2 CommandButton ェ 


全体 | 項目 史 | 
( オ コ ツ ウェ ッ ト Comirmiand2 
ss] た ]ml=i に 1 - 3D 
BackColcr | &H8OO0000A& 





ご 邊 ダ ジル クリ ワック 


Dsfaut F al=s 
DisablsdPicturs 【 志 | 


じじ ョ usesalidation True 


LeSSOn4 プロ パテ ィ へ の 値 の 代入 





[( オ ブ ジ ェクト 名 )] プロ パテ ィ の 値 を 「Green」 に 


変更 する 
lm 導 | ここ を ダブ ルク リッ ク 





ーー スー ン 
| は 生 11-a に に 










[Commandz CommardButton ] 


全体 | 項 中 史 | 





mn | 「Green」 と 入力 

| PPearanCe 1 - 3D 

BackColor | &HBHUUOOUA& 

| ョ ncel| Fa に = 

| Caption 

| じ ョ u===V ョ lid ョ tion True 


Dsfault ac 


引 Form1:Pink-Click 


| Project1 ー Focrm1 (ロート) 





PP エ ュ で a ヒ G Sub Pink C1iCK ( ) 
| Labe1 1 .BaCKCO1O エ = &HFF80FF 
下 nd Sub 

















ョ FOrm1:Green-Click 

| |Green <| |ciick | 回 | 

_ Private Su も b Green Cc ( ) ] 
| Labe11 . BacfkCo1or = &gHC000g 

End Sub 


者 馬 ワン ポイ ント アド バイ ス 





最初 に [ピンク] ボタ ン を ダブ ルク リッ ク し て コー ドウ ィ ン ド ウ を 表示 し 、 コ ー ド を 
入力 し た 後 、 続 け て [ 緑 ]】 ボタ ン を ダブ ルク リッ ク し て コー ドウ ィ ン ド ウ を 表示 し 、 コ 
ー ド を 入力 し ます 。 





第 1 日 ら 時 限 上 月 は じ め て の プロ グラ ム を 作 つう 


(2 











』 











う 
O 
7 
8 





[ピッ み ] ボタ シ を ダブ プル クタ リック し て 、 と の ポタ ン の Cck イ ベン ト プ ロ シー ジ 
ャ を 表示 し ます 。 プ ロ シ ー ジ ャ [Sub Pink_Click0] が 、 こ の ボタ ン が 押さ れ た と き 
に 実行 され る プロ シー ジャ で す 。 


この ボタ ン は 、 ラ ベル コン トロ ー ル の 背景 色 を ビン ク 色 に し ます 。 背景 色 を 変え 
る に は 、[BackColor| プロ パテ ィ に 人 色 を 数 値 (16 進数 ) で 設定 し ます 。 


プロ シー ジャ に コン トロ ー ル 名 「Labell」 を 入力 し ます 。 
コン トロ ー ル 名 は 、 そ の コン トロ ー ル の プロ パテ イィ ウィ イン ドウ に ある | オブ ジェ 
クト 名 | (ここ で は |「Labell」) が 、 そ の まま コン トロ ー ル 名 に な り ま す 。 


[Labell」 に 続い て |「.| を 入力 し ます 。 自動 的 に 、|Labell」 で 使え る プロ パテ ィ 
が リス ト 表 示さ れ ま す 。 


ペー ペー ペー……・ マ = ニッ emem ペペ マ イマ ーー ツン ツ ツ ツ ンー ツン ーー ツ em ツー ペペ ペペ ペペ mmmーー ペ wm ペペ ーー ニーwー ペ ペペ ペペ ぷー ペ ミ マ ペ ニ ーー ペペ ペペ ペペ ーーー ニー ジー ペニー ジー ペペ ペー ペ ツーー ーー ツー ペペ ペーs ト ーーーoー ペ mae ペペ ハン ペー の mm の この 











Private Sub Green_Click 0 
Label1. 
End Sub 上 lignment 


Green 


使用 で ご きる プロ パテ ィ の 
リス ト 


プロ パテ ィ [BackColor]| を マウ ス で ダブ ルク リッ ク す る か 、Tab キー を 押せ ば 、 
その まま コー ド に 入力 され ます 。 続い て 、 値 を 設定 する た め に 「=] を 入力 し 、 そ 
の あと に ピン ク 人 色 の 16 進 コー ド |&HFF80FF| を 入力 し ます 。 


同様 に 、[ 緑 | ボタ ン の プロ シー ジャ [Sub Green_Click()」 も 同じ よう に 記述 し 
て いき ます 。 た だ し プロ パテ ィ [BackColor]」 の 値 は 、「&HC000&」 に 設定 し ます 。 


コー ド を 記述 し た ら 、 プ ログ ラム を 実行 し ます 。[ ビ ンク 」 ボタ ン を 押す と ラベ ル 
コン トロ ー ル の 背景 色 が ピン ク 色 に 、[ 緑 ]」 ボタ ン を 押す と 、 緑 色 に 変わ り ま す 。 


プロ パテ ィ に 値 を 設定 する と き は 、「=」 を 使い ます 。 こ れ は 、|Let」 ステ ー ト メ 
ント と いい 、= の 右辺 を 左辺 に 代入 する 働き を し ます 。 本来 は 、 


Le Labe11 .BackCo1or = ggHCO000& 


と 記述 する の で す が 、 通 常 は 「Let」 を 省略 し て 「=] だ け で 記述 し ます 。 








LesSOn4 プロ パテ ィ へ の 値 の 代 





コー ド で コン トロ ー ル の プロ バテ ィ を 操作 する と き は 、 必 ず コ ント ロー ル 名 (オブ 
ジェ クト 名 ) と プロ バテ ィ を 「.」 (ピリ オド ) で 指定 し ます 。 常 に 、 ど の コン トロ ー 
ル の どの プロ バテ ィ を 操作 する の か を 明確 に し て お か な けれ ば な り ま せん 。 


Labe11 .BackCo1or = ggHCO000& 
時 PE 


ーーーーーー イ ーーーーー  ー 
コン トロ ー ル 名 プロ リ 【 デ ティ 條 
(オブ ジェ クト 名 ) 


ビリ オド イコ ー ル 
(Let ステートメント) 


る c》 練習 問題 


上 コマ ンド ボタ ン を 1 つ 追 加 し 、 ボ タン を 押す と ラベ ルコ ント ロー ル の 
背景 色 が 「 青 色 ] に な る よう に し て くだ さい 。 
解答 は 巻末 に 一 


[ピン ク ] ボタ ン を 押し た と き に 、 文 字 の 色 を ピン ク に 変え る よう に 変 
更 し て くだ さい 。 


【 ヒ ント 】 
文字 の 色 は [ForeColor] プロ バ パティ が 担当 し ます 。 





解答 は 巻末 に 一 


者 馬 ワン ポイ ント アド バイ ス 


プロ バテ ィ 「BackColor」 は 、 ほ と ん どの コン トロ ー ル と フォ ー ム が 持っ て いる プ 
ロバ ティ で す (コン トロ ー ル に よっ て は 背景 色 の 設定 が で き な い も の も あり ます )。 
プロ パテ ィ の 値 は 、 色 の 番号 を 16 進数 で 指定 し ます 。 プ ロ パ ティ ウィ ンド ウ の カラ 


ー バ レッ ト を 使う と 、 色 番号 を 知る こと が で きま す 。 
この 数 値 が 色 の 1 6 進数 番号 








に 肖 | | 回 dd 記 ! 
が レル 引 | 計 | 
HH 










第 1 日 ら 時 限 目 は じ め て の プロ グラ ム を 作 の 


Uliillll 
HHH HHFHHHH 
0 


ル ん どら S$ の 24 


は じ め て の 
プロ グラ ム を 


白 - で Lesson05 


りう Learning Edition 








イメ ー ジ ファ イル を 使う 


イメ ー ジ コン トロール に 画像 ファ イル を 設定 する 方 法 を 覚え ます 。 フォ 
ー ム の プロ バテ ィ も 操作 し ます 。 


僅 ラ 回 作成 する プロ グラ ム 








| | で 二 還 ld 


指定 ご 
が 表示 され る 









ボタ ン を クリ ッ ク 
する と … 


イメ ー ジ を 表示 する だ け の プロ グラ ム で す 。 付録 CD-ROM の 
| LesSSO0n05」 フォ ル ダ に ある 「Mark.Dmp」 と いう ビッ トマ ッ プ フ 
ァイル を 使い ます 。 











LeSSOn5 イメ ー ジ ファ イル を 使う 


の 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


ツー ル ボ ックス の [Image] ボタ ン を クリ ッ ク す る 


較 ms Froject1 一 Microsoft Visual Bas を あり 冶 
アイ 雪 5 表示 70 ツウ 書 鶴 QD 2 が 窒 D 負 D ダケ 4 















馬 を 30 は H 二 5 ご 導電 に 3 但 2 電 は を 人 


を We すま WW 


**I き * ャ ** ま WW mw ww * ww wm we 


本 


4 の 事 


と SS 


0 


馬 和 か 


に 穫 ま BK 到 計 の KK EK XR 01 CC ES EK SS SL SR SS 200 RPC の 


で 


し を RE 20 90C 9 30 209 20 0 NSR 032EE、 528 に EL223LRKR XR RE SSR LO 


2 た RES EK 0 KC 2 0 は 光 30 2 39 区 3 8 3 


人 この: の の Cc 竜二 


サー ニャ ー ャ るー ャ ww mw 


5 ・ この ボタ ン を 
た ン リ ッ プ 


ッ オ ォ オーム 上 で ドラッグ し で と 。 ヨシ トロ ー ル を 如 軒 
する | 


ーー し て で 
て の まま ここ まで 
ドラ ッ ヴ 


プロ バテ ィ ウ ィ ン ド ウ で [Picture] プロ パテ ィ を ク 
リッ ク し 、 右 側 の セル の ボタ ン を クリ ッ ク す る 








7502: 棒 
2 


3 > 机 全 に に こっ 徐 


人 は 


本 


欄 和 人 
3: 
人 
92 AKA 2 VS SS 者 0 


IN 





llImage1 Imags ェ 


全体 | 項目 串 | 










ここ を クリ ッ ク 
ここ を リック 


第 1 日 3 時 限 目 


Mousslcon コテ ェ 
 』kloussPointer n - 學 定 値 
n- 手動 







0 - な し 
(な し ) 


F ョ ほ ぉ = 







新しい プロ ジェ ク 
< くき ト の 作成 


新しい プロ ジェ クト と フ 
ォ ー ム を 作成 する に は 、 
[ファ イル | メニ ュー か ら 
[新しい プロ ジェ クト ] を 
選択 し 、[ 新 し い プ ロジ ェ 
クト ] ダイ アロ グ ボ ッ ク 
ス で [標準 .EXE] を 選択 
し て [OK] を クリ ッ ク し 
ます 。 


イメ ー ジ コン ト 
ガ ロー ル と は 


ビッ トマ ッ プ や 画像 を フ 
ォ ー ム 上 に 表示 する コン 
トロ ー ル で す 。 


ぐ 才 イメ ー ジ を 選択 


この 操作 を 行う 前 に 、 作 
成 し た イメ ー ジ コン トロ 
ー ル が 選択 され て いる こ 
と を 確認 し て くだ さい 。 





は じ め て の プロ グラ ム を 作る 


[Mark.Dmp」 の 
ヽ ン 保存 場所 


この ファ イル は 、 付録 CD- 
ROM の |Lesson05」 フォ 
ル ダ に 収録 きれ て いま す 。 


ざ 


\ ン する 


この 操作 を 行う 前 に 、 フ 
ォ ー ム を 選択 し て くだ さ 
い 。 フォー ム を 選択 する 
に は 、 フ フォー ム 上 の イメ 
ー ジ コン トロ ー ル 以外 の 
部 分 を クリ ッ ク し ます 。 


プ ォ ー ム の まわ り に ハン 
ドル が 表示 され て いる と 
選択 され た こと に な り ま 
生 





[ビク チャ の 読み 込み ] ダイ アロ グ が 表示 され る の で 、 
[Mark.Dmp] を 選択 し 、[ 開 く ]」 を クリ ッ ク す る 


で 和 











“ ?Hx 
=| 回 | | き | ほ 再 | 


回 m m [Mark.bmp] 
を 選択 


すべ て の ひ L ツ チャ ファ イル 


明 間 > ーー 一 ここ を クリ ッ ク 
ファ イル の 種類 和 キャンセル | 





^ へ ルプ) | 


ーー あや ーー ニー ニーーー ニ ーー ニー ニー ニニ ーーー ニー 人 aa る ーー ニー ニー スー ニニ ーーー ニー ニー ニーーー ニ ーー 





人 イメ ー ジ コン トロ ー ル に 選択 し た 画像 が 表示 され る 





人 の だ 放 に 2 は を 2 弧 S 放 の 人 3 ら 凍 23 隊 ら OO 


2 


フォ ー ム を 選択 し て か ら 【[BackColor」 プロ バテ ィ 
を クリ ッ ク し 、 右 側 の セル の ボタ ン を クリ ッ ク す る 





J L 上 ae 。 ィ ー Fcrm 1 








Forml Fcrm | 


全体 | 項目) [ m 較 | ここ を クリ ッ ク 
(コツ ウェッ ト 名 ) Form1 PE 
用 | ここ を クリ ッ ク 


必 ロ D ら = ョ 「 コロ ご ら 1 - 83D 
uto Redrawy Fa ョ ほ = 


BackColor 貼 | &H8nn0nnnF& し 





BordsrSty|= 2 - 可 梁 
aption F or m 1 
ClipContro に True 
CortrolBaox True 


LeSSOn5 イメ ー ジ ファ イル を 使う 


カラ テー バル わ ゆめ も か 表示 され る の で ルル レッ Ft 多 プ 
で | 曰 色 」 を 選択 する 


BackColor 較 朗 HOOFFFFFF& 
PorderS RW | ッ ス テム | 

aption 
ClipCon 
ControIE 
Draw Mo 
DrawSty| 較 還 
Drawid 較 還 





sm 較 | ここ を クリ ッ ク 









BackCo 
ォ コ ジェ ウッ ト 
景色 者 訟 | | 





oooeesaasieecssSasn を tee Sec さっ < Ss 還 RBEE 「 吉 景 が 白く な っ た 





和 > 旬 。 まし 取 ) 償 | 耐 門人 の 1 の 義 た AE YE 作者 りく 者 人 まあ 0 6) | の) ( 呈 人 0 ご 作例 | の E 彼 | の ROD け 0 の / 9 ( 生 1 人 W : 電 や SU. ゅ @ 


ツー ル ボ ックス の CommandButton] 二 を クリ 
ッ ク し 、 コ マン ド ボ タ ン 1 つ を 配置 する 





こと ググ リッ ク 





第 1 日 3 時 限 目 は じ め て の プロ グラ ム を 作る 








、 グ 
ボタ ン を 選択 
この 操作 を 行う 前 に 、 作 


プロ パ バディ ウィ ンド ワウ で [Captionl プロ バテ ィ 
』《) の 値 を | 終了 | に 変更 する 


成 し た [Command1] ボ mem ef 
の そ Ne。 ーー or ーー ' 





全体 | 項目 別 | 


m 叶 | ここ を ダブ ルク リッ ク 











| &H8UOOU00F& 









Fa ほ ぉ = 

終了 用 | [終了 」 と 入力 
じ ョ use=Validation True 
Dsfaul Fa== 






DisablsdPicture (な し ) 
DowwnPicture (な し ) 
IlDraglcon (な し) 
J』DragMods 。 1 ロ - 手 還 衣 








引 FOrm1: Command1 -Click 








TTY - Form1 コー ト ) 





| Pr ュ ivyate Sub Command1 C1iock ( ) 
| End 
End Sub 


* 


ーー 








コマ ンド ボタ ン を ダブ ルク リッ ク し て 、Click イベ ント プロ シー ジャ を 表示 し ます 。 
そし て 、 プ ログ ラム 終了 の |「End|] ステ ー ト メン ト を 記述 し ます 。 





LeSSOn5 イメ ー ジ ファ イル を 使 


イメ ー ジ コン トロ ー ル に 画像 ファ イル を 設定 する 場合 は 、[Picture] プロ パテ ィ に 
その 画像 ファ イル を 指定 し ます 。 イ メー ジコ ント ロー ル が 表示 で きる イメ ー ジ ファ イ 
ル の 種類 は 以下 の と お り で す 。 


WindowsS カー ソル ファ イル 


る c》 練習 問題 


イメ ー ジ ファ イル を 「Free.bmp」 に 入れ 替え て くだ さい 。 フ ァイル は 
付録 CD-ROM の 「Lesson05」 フォ ル ダ に 収録 し て あり ます 。 


解答 は 巻末 に 一 


、 | ーー 


イメ ー ジ コン トロ ー ル の [Stretch] プロ パテ ィ は 、 表 示す る 画像 を イメ ー ジ コン ト 
ロー ル の サイ ズ に 設定 し ます 。 

プロ バテ ィ の 値 が [False] で 、 設 定 し た 画像 ファ イル は その まま の サイ ズ で 表示 さ 
れ ま す 。[True] に する と 、 画 像 ファ イル は イメ ー ジ コン トロール の 大 き さ に 強制 的 に 
合わ せら れ ま す 。 








テ 電 和 ほ む 
True の と き FalSe の と さき 





第 1 日 3 時 限 上 月 は じ め て の プロ グラ ム を 作 いい 


@ 
| 
山 利息 車 利 


HH HHFH 
IT 介 


ル ら S$ の 22 


第 1 日 
3 時 限 目 


は じ め て の 
プロ グラ ム を 


ae Lesson6.vDp 
6) 


白 - で Lesson06 


う Learnin Edition 








イメ ー ジ を 切り 替え る 


イメ ー ジ コン トロ ー ル の 画像 ファ イル を コー ド で 指定 する 方 法 を 覚え ま 
す 。 また 。 イベ ント プロ シー ジャ を 使っ た テク ニッ ク を 覚え ます 。 


し ラ 回 作成 する プロ グラ ム 





| | 


| 





コマ ンド ボタ ン を 使っ て 、 イ メー ジコ ント ロー ル に 表示 する イメ 
ー ジ を 切り 替え ます 。 た だ し 、 コ マン ド ボ タ ン を 使わ ず に 、 イ メー 
ジ を クリ ッ ク す る と 切り 替わる よう に し ます 。 











LeSSOn ら 65 イメ ー ジ を 切り 替え る 



















コン トロ ー ル と プロ パテ ィ の 設定 


ュー 






※ こ こ で は 、 前 の レッ スン で 使用 し た 「Lesson5.vDp] ファ イル を 
引き 続き 使用 し ます 。「Free.bmp」 を C ドラ イブ の ルー ト に コピ ー 
し て お いい で くだ さい 。 


イメ ー ジ コン トロ ー ル を ダブ ルク リッ ク し て コー ド 
ウィ ンド ウ を 開く 
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T エ made1 .P エ ご u い エ G = LOadP1 エ Cu エ @G ( "で: ま 下 ree .bmp" ) 
End Sub 





第 1 日 3 時 限 目 は じ め て の ブ プログラム を 作 いと 











』 











イメ ー ジ コン トロ ー ル が クリ ッ ク さ れる と 、 コ マン ド ボ タ ン と 同様 に Click イベ 
ント が 発生 し ます 。 こ の と き に 実行 し た い 処理 は 、 こ の プロ シー ジャ に 記述 し ます 。 
ここ で は 、 イ メー ジコ ント ロー ル |Imagel1」 に 発生 し た Click イベ ント な の で 、 
| Image1_Click()] プロ シー ジャ に 、 イ メー ジフ ァイル を 入れ 奉 え る 処理 を 記述 し ま 


O 


イメ ー ジ コン トロ ー ル に 新しい イメ ー ジ ファ イル を 表示 させ る に は 、[Picture] 
プロ パテ ィ に その イメ ー ジ ファ イル 名 を 設定 し ます 。 

た だ し 、 直 接 イ メー ジフ ァイル 名 を 記述 する の で は な く 、LoadPicture 関数 を 使 
っ て 、 イ メー ジフ ァイル を 設定 し ます 。 


T エ madG1 .P ユ ご 上 u エ G = LOadP1Cu エ @ ("で : ま Free .bmp" ) 


関数 引数 (ロー ド す る ファ イル の 名 前 ) 


【LoadPicture 関数 の 書式 】 


LoadP ュ 1 ご 上 ue ( E ュ 1ename ) 


Fi1ename ロー ド す る 画像 ファ イル の ファ イル 名 を バス 付き で 記述 し ます 。 

LoadPicture 関数 は 、() 内 に 指定 し た イメ ー ジ ファ イル を 、 イ メー ジコ ント ロー 
ル に ロー ド す る 役割 を 果たし ます 。 こ の 関数 の 戻り 値 を 、 イ メー ジコ ント ロー ル の 
[Picture] プロ パテ ィ に 代入 し ます 。 

ちな み に 、LoadPicture 関数 を 使わ ず に ファ イル 名 を 指定 する と エラ ー に な り ま 
す 。 な ぜ 、 フ ァイル 名 (パス 名 ) を 直接 指定 し て は いけ な い の で し ょ うか ? それ は 、 
ファ イル 名 を 示す 文字 列 と いう の は 、 単 な る ファ イル の 「 場 所 情報 ] だ か ら で す 。 
イメ ー ジ コン トロ ー ル 内 に 場所 情報 を ロー ド す る こと は で きま せん か ら 、 当 然 エ ラ 
ー に なり ます 。 

イメ ー ジ コン トロ ー ル に 画像 を 表示 する に は 、 場 所 情報 で は な く 、 イ メー ジフ ァ 
イル の 「 本体] を ロー ド す る 必要 が あり ます 。 こ の 作業 を 受け 持っ て 実行 し て くれ 
る の が LoadPicture 関数 で す 。 LoadPicture 関数 に ファ イル の 場所 を 指定 し て や れ ば 、 
変換 され た 値 が イメ ー ジ コン トロ ー ル の [Picture] プロ パテ ィ に 代入 され 、 画 像 が 
表示 され ます 。 

指定 する ファ イル 名 は 、" "(ダブ ルク ォ ー テ ーション ) で 囲ん で 指定 し ます 。 こ 
の と き 、 フ ァイル 名 の 指定 は パス 名 を 付け て 指定 し て くだ さい 。 拡 張子 は 必ず 付け 
ます 。 条 対 パス で 参照 する と き は 「c:\Free.bmp」 な どの よう に ドラ イブ 名 や フォ 
ル ダ 名 を きち ん と 記述 し て くだ さい 。 


プロ グラ ム を 実行 し て 、 イ メー ジ を クリ ッ ク し て くだ さい 。 表示 し て いる 画像 が 、 
指定 し た イメ ー ジ ファ イル に 入れ 奈 わり ます 。 











LeSSOn6 イメ ー ジ を 切り 替え 





プロ パテ ィ に は 、 直 接 値 を 設定 する も の も あれ ば 、 こ の よう に 関数 や メソ ッ ド 
(P.79 参照 ) を 使っ て 設定 する も の も あり ます 。 


また 、 こ れ か ら 出 て くる 「 変 数 ] (P.70 参照 ) を 使っ て プロ パテ ィ を 設定 する 手法 
は 、 よ ぐ く 使わ れる テク ニッ ク で す 。 


| Free.Dmp」 を 任意 の フォ ル ダ に コピ ー し て 、LoadPicture 関数 か ら 
指定 し て くだ さい 。 


解答 は 巻末 に 一 





十 乏 ワン ポイ ント アド ババ イス 


ドラ イブ 名 と フォ ル ダ 名 を つない だ 記述 を 、「 パ ス 」 と 呼び ます 。MS-DOS を 使っ 
て いた 人 に は お な じみ の 表現 で すね 。Visual Basic で も まっ た く 同 じ 記 述 方 法 を 採用 
し を か ます 。 

バス を 記述 する 際 は 、 ド ライ ブ 名 と フォ ル ダ 名 は 「:\] で 、 フ ォ ル ダ 名 と ファ イル 名 
は |\」 記号 で つなぎ ます 。 例え ば 、 ド ライ ブ C の 「datal」 フォ ル ダ に ある 
|girl.Dmp] ファ イル を フル パス で 記述 する と 、 次 の よう に な り ま す 


C : きま da ヒ a 壮 ゴ ュ ユエ 1 ユ 。bmp 


スズ ス デ テー ド ダン ト に つい て 


| ステートメント] と は 、 プ ログ ラム 作成 を 行う 上 で 必要 な 命令 の こと で 、 プ ログ ラム の 流れ 
を 制御 し た り 、 コ ー ド を 書き や すく する た め に 用 意 き れ て いま す 。 日 本 語 で は 「 一 文 ] と も る 呼 
ば れ ま す 。 例え ば 、 後 述 の レッ スン で 出 て くる 、For..Next ス テー トメ ント は 、 指 定 し た 回 数 だ 
け 、For.…Next 間 の 処理 を 繰り 返す ステ ー ト メン ト で す 。IfF ス テー トメ ント は 、 あ る 条件 を 判断 


し て 、 プ ログ ラム の 流れ を 振り 分 け ま す 。 

Visual Basic の プロ グラ ム 作 成 は 、 こ れ ら の ステ ー ト メン ト を 組み 合わ せな が ら 、 オ プ ブ ジ ェ ク 
ト の プロ パテ ィ や メソ ッ ド を 操作 し て 行い ます 。 ス テー トメ ント の 種類 は た くさ ん ある の で す 
が 、 本 書 に 出 て くる よう な 基本 的 な ステ ー ト メン ト だ け で も 、 か な り 面 白い 処理 を する こと が 
で きま す 。 必要 に 応じ て 覚え て いく よう に すれ ば よい で し ょ う 。 





第 1 日 3 時 限 目 は じ め て の プロ グラ ム を 作 





ll 
HHH HH HHH 
上 困 | 


アス スマ /7 // 


は じ め て の 
プロ グラ ム を 


E-Y コ Lesson07 


う Learninq Edition 








コン トロ ー ル を 組み 合わ せる 


これ まで 紹 7[ し た コン トロ ー ル を 使っ て 、 フ ォ ー ム を テ ザ イ ン し ます 。 
また 、 フ レー ムコ ント ロー ル を 使っ て フォ ー ム を 和 飾り ます 。 


し 今回 作成 する プロ グラ ム 


情報 を 表示 する ダイ アロ グ 
ボッ クス が 閉じ る 


これ まで 使っ た コン トロ ー ル と 新しい 「 フ レー ム 」 コントロール 
を 組み 合わ せ て 、 画 面 に 情報 を 表示 する プロ グラ ム を 作成 し ます 。 

この 形式 の プロ グラ ム は 、「 バ ー ジ ョ ン 情 報 」 の ダイ アロ グ ボ ッ ク 
ス な ご ど に よく 使わ れ て いま す 。 











LeSSOn プ コン トロ ー ル を 組み 合わ せる 









トロ 一 ル と ププ ロロ 玉 ディ の 誠 到 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 < 新しい プロ ジェ ク 
ト の 作成 


聞 レ し い プ ロジ ェクト と フ 

wa ー ム : 成 こま 

明 ツー ル ボ ックス の [Frame] ボタ ン を クリ ッ ク す る 0 
ーー 泊 旨 科大:4 陣 庫 間 昌 拓 還 [新しい プロ ジェ クト | を 
t1 - Microsoft Visual Basic [デザ イノ 選択 し 、[ 新 し い プ ロジ ェ 
編集 (ED 表示 ) 7 ロ ny ェ 9NP 書式 ⑥) デ n ッ が XD) 実行 GG) 旬 り -①) デ 人 ゲラ Ad クト | ダイ アロ グ ポ ボック 
し ルリ = 当 四 呈 ス で [標準 EXE] を 選択 
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Projeot1 -Forml 【FormJ 」 2 
AN 0 om の 
0 ザー 2 3 。 の ボタ ン を 
由 E EE ロー クリ ッ ク 
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デー し て [OK] を クリ ッ ク し 
ます 。 
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還 還 ee 


すま 和 WI つ HOOIIWNNWI [ENYSWN3W IN 才 1 宙 0 且 科 COM に 9 ご 計 5 


入間 


NO 容 =m 二 CRCE 陳 に 避 凍 Im 間 2 


Eo 


和 人 の 


性 


人 


ッ オ ー ム ヒエ で ドラッグ し じ し て で 。 ラレー』 コ 7 み kT 一 ル の 
を 配 直す る 


ロー ル 
フレ ー ム コン トロ ー ル は 
ここ を シシ リック 複数 の コン トロ ー ル を グ 
の て で ルー プ に し て 、 他 の コン 
トロ ー ル と 区 別 す る た め 
に 使い ます 。 フ レー ム を 
移動 する と 、 フ レー ム 上 
の コン トロ ー ル は すべ て 
同時 に 移動 し ます 。 フ レ 
ー ム コン トロ ー ル は 、 こ 
の よう に 複数 の コン トロ 
ー ル を まとめ る 働き を し 
ます 。 


その まま ここ 
まで ドジ ウッ ゲン 








第 1 日 4 時 限 目 は じ め て の プロ グラ ム を 作る 


フレ ー ム を 選択 
する 


この 操作 を 行う 前 に 、 作 
成 し た フレ ー ム コン トロ 
ー ル が 選択 され て いる こ 
と を 確認 し て くだ さい 。 


キャ プシ ョ ン は 
ぐ 無く て も よい 


フレ ー ム な どの コン ト ゼ セ 
ー ル で 特に [Caption] が 
必要 な いと き は 削除 し て 
し まっ て も か まい ませ ん 。 
フォ ー ム 上 に キャ プシ ョ 
ン が 表示 され な く な り ま 
す 。 





プロ バテ ィ ウ ィ イン ドウ で フレ ー ム コン トロ ー ル の 
[Caption] プロ パテ ィ の 値 を 削除 する 





「 す 1 ルー 1 s For m 1 








IEY Form ェ 「 
| 全体 | 項目 別 | | 







「 m 較 | ここ を ダブ ルク リッ ク 








| Fa|== 

| BackColor | | &H8UUHInnF& 

BordsrStyle 2 - 可 の Del キー を 押 を 
[ | / 

| CHpControl= True 、 | Frame | 」 を 削除 
ControlIBoxx True 3 

Drawuklode 13 - Copy Pen | 

DrawStyle n - 実線 (中 心 綿 ) 、 

DrawWidth ] | 

」』Enabled True | 

し 当 ヒー ルー 本 蔽 ぶっ mmmmummm 間 KC 


用 ツー ル ボ ックス の [Image] ボタ ン を クリ ッ ク す る 


FN Project1 - Microsoft Visual Basic | テ レ 前 


ME) 編集 CE 表示 W) 2m ツ 2 ト PD 書式 @) デパ ッ D) 天 行 ) 殺 り -U 


いき ・ 朋 以 回 ) 旨 四 抽 ら Cl nm 選 困 1: 
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ゴル 





LeSSOn プ コン トロ ー ル を 組み 合わ せる 


その まま ここ 
まで ドラ ッ グ 


ここ を クリ ッ ク 





プロ バテ ィ ウ ィ ン ド ウ で [Picture] プロ パテ ィ を ク 
リッ ク し 、 右 側 の セル の [.…] ボタ ン を クリ ッ ク す る 





用 Z 還 還 に 3 








Image1 |Imags | 


全 1 本 | 項目 中 | 


L=ft | 呈 
Mousslcon | に たっ ッッ リプ 
MousePointer \1 

に に を アリ ッ ク ジ 


[ビク チャ の 読み 込み ] ダイ アロ グ で [angel.gif] を 


選択 し 、[ 開 く ]」 を クリ ッ ク す る 
選択 









し 証 = に ュ 5 
の 5 


ファ ル の 場所 ①: 







ファ イル (0) |sngslgr アン に に 3 を と リ rp ンプ 
ファ ャ ル の 種類 CD すべ て の ヒサ チャ ファ イル ォ キャン セル | 





^ し ルプ (H) | 





コン トロ ー ル を 
ぐ ぽ 重ね る 


既に 作成 され て いる コン 
トロ ー ル の 上 に 、 別 の コ 
ント ロー ル を 重ね て 作成 
する こと が で きま す 。 


フレ ー ム コン ト 
ご ロー ル の 特徴 


フレ ー ム コン トロ ー ル に 
他 の コン トロ ー ル を 載せ 
る 場合 は 必ず 、 フ レー ム 
を 先 に 配置 し て か ら 、 そ 
の 上 に 他 の コン トロ ー ル 
を 配置 し ます 。 そ うし な 
と 。 プチ レー ム た に コン キ 
ロー ル が 了 れ て し まい ま 
す 。 


[angel.gif| フ 
ぐ ライ ル の 保存 場所 


|angel.gif] ファ イル は 、 
付録 CD-ROM の 
| Lesson07] フォ ル ダ に 収 
時 され て いま す 。 





第 1 日 4 時 限 月 は じ め て の プロ グラ ム を 作る 


オォ オメー ジコ ント 
ミア ロー ル の サイ ズ 
キメ ー ジ コン シン キネ キロ ー ル の 
サイ ズ は 、 選 択 し た イメ ーー 
ー ジ の サイ ズ に 合わ せ て HE 
調整 され ます 。 (P.41 参照 ) 


選択 し た イメ ー ジ が イメ ー ジ コン トロ ー ル に 表示 さ 
れる 
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ツー ル ボ ックス で [Label] ボタ ン 傘 を クリ ッ ク 
し 、 フ レー ム 上 に ラベ ルコ ント ロー ル を 配置 する 


3 ノリ リリ 6 プ 


その まま ここ 
まで ドラ ッ グ 


』《)} プロ パテ ィ ウ ィ ン ド ウ で [Caption] プロ バテ ィ 
の 値 を 変更 する 
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上 くわ か る yisual Basic5 MAPS ん 
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LeSSOn7 コン トロ ー ル を 組み 合わ せる 





ルコ ント ロー ル の サイ ズ を 調 硬 する 





還 い 。 よ くわ か る Visual Basic6n 


サイ ズ 人 変更 人 ハンド 


業 , 


コン トロ ー ル を 選択 し た 
と き に 、 そ の 周囲 に 表示 
され る 黒い 四角 形 を 「 サ 
イズ 変更 ハン ドル | と 呼 
プチ ます 。 


この ハン ドル を ドラ ッ グ 
レ し て 、 コ ント ロー ル の サ 


イズ を 変更 し ます 。 
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目 [Labell ボタ ン を 使っ て 、 フ レー ム 上 に ラベ ル 


コン トロ ー ル を も うっ 1 つ 配 置 す る 
の クト レック 
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手順 10 と 11 を 参考 に し て 、[Caption] プロ 
バテ ィ の 値 を 変更 し 、 ラ ベル の サイ ズ を 調整 する 





_By Seto( 傘 - 傘 ) 199811. " この よう に 変更 
ミ 午 電 する 





人 
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本 


人 全て と うー バ 全 生生 





第 1 日 4 時 限 目 は じ め て の プロ グラ ム を 作る 


用 ツー ル ボ ックス の [CommandButton」] ke| を 
クリ ッ ク し 、 コ マン ド ボ タ ン を ] つ 配 置 す る 









ーー に を な クリック 
その まま と と 
まで ドラ ッ 多 


プロ バテ ィ ロ ワ ィ ンド ワ で IDapiigegEEEEgz 
1 る の 値 を |OK」 に 変更 する 


| pe 


| Command1 に ommandButton 


全体 | 項目 別 | 


















ここ を タン ノル クン クリック 
IOK」 と 入力 


1 わ や 中 


Command1 













| 上 DD ほ ョ コロ CG 1 - 3D 
BackColor | | &H8UnHnnnF& 
じじ ョ ncel False 





| 生 た 1 ssl OK 
| use==Validation Trus 
Dasfaut False 


IDisablsdPicturs (な なし) 








引 F0rm1:C0mmand1-Click 


| 剛 Projsct1 - Form1 (コー ド ) 


|ICommana1 | |ciick <| 


ーー ペー ー ペ マー ペー ーー ンー ツー ニー ツー ーーーーー ツ ーー ツーーーーーーー … マ ペー て ペペ ーー マン ーー ペー ペー ペー の 急 、、 ーーー て 


priyate Sub Command1 C1ick() 
EnQd 
正 nd Sub 








LeSSOn プ コン トロ ー ル を 組み 合わ せ 











』 


コマ ンド ボタ ン の Click イ ベン ト プ ロ シー ジャ に 、 も うす っ か りお な じみ の プロ 
グラ ム 終 了 ス テー トメ ント [End | を 記述 し ます 。 


イメ ー ジ コン トロ ー ル 、 ラ ベル コン トロ ー ル 、 フ レー ムコ ント ロー ル 、 コ マン ド ボ 
タン を 組み 合わ せ て フォ ー ム に 配置 する と 、 ア プリ ケー ショ ン な ど で お な じみ の 、「 バ 
ー ジ ョ ン 情 報 (.…. に つい て )」 ダイ アロ グ ボ ックス が で き あ が り ま す 。 

この レッ スズ ン で 学ん だ 、 コ ント ロー ル を 組み 合わ せ て フォ ー ム を 飾る テク ニッ ク は 、 
いろ いろ と 使い 道 が あめ る の で 、 ア イデ ア を 取り 入れ て 自分 の お 気に入り の フォ ー ム に 
し て くだ さい 。 


る c》 練習 問題 


フレ ー ム 、 フ ォ ー ム 、 ラ ベル コン トロ ー ル の 育 景色 を 、 ピ ンク に 変え 
て くだ さい 。 


解答 は 巻末 に 一 


者 参 ワン ポイ ント アド バイ ス 





ラベ ルコ ント ロー ル の [BackStyle] プロ パテ ィ を 「0O- 透 明 」 に 設定 する と 、 文 
子 だ けが 表示 され る の で 、 イ メー ジ と ラベ ルコ ント ロー ル を 重ね 合わ せる こと が で きま 
きっ 

も ちろ ん 、 ラ ベル コン トロ ー ル 同士 
も 重ね 合わ せる こと が で きま す 。 
| 左 図 の フォ ー ム で は 、「Welcome! 

Hot Cocoa」 と いう 色 の 違う 文字 ( ラ 
ベル コン トロ ー ル ) を ら つ 重ね て 、 影 
付き 文字 の 効果 を 出し て いま す 。 ラ ベ 
ルコ ント ロー ル の 背景 を 透明 に すれ ば 、 
こう いう 効果 も 作れ ます 。 








Welcomel Hot Cocoa 





第 1 日 4 時 限 目 は じ め て の プロ グラ ム を 作 つう 


Windows の プロ グラ ム の 大 き な 特 徴 は 、|「 イ ベン ト 了 動 型 | の ウィ ンド ウシ ステ 
ぬ ね だ の の に の で さら 。 

ユー ザー が 操作 する メニ ュー や ボタ ン 、 マ ウス の 動作 な ど を 捕らえ て 、 そ の イベ ン 
ト に 対応 し た 処理 を プロ グラ ム 側 で 組み 上 げ て いく の で す 。 

本 来 は 、 複 雑 な 処理 が 必要 と され る この シス テム な の で す が 、Visual Basic で は 
間 単 に イベ ント 処理 が で きる よう に 作成 され て いま す 。 


第 ご 日 は 、 こ の イベ ント に 対す る 理解 と 、 イ ベン ト に 対応 し た 処理 を 組 び に は ど 
うつす れ は ば は 良い の か を テー マ に 解説 し ます 。 


今日 の レッ スン で 解説 する 項目 

Click イベ ント と DDICllck イベ ント と いう つ 、 ら つの イベ ント の 使い 分 け 
それ ぞ れ の イベ ント プロ シー ジャ の 記述 方 法 

[MouseDown」 イベ ント の 使い 方 

コイ ベン ト プ ロ シー ジャ で 扱う 変数 の 使い 方 と | 変数 ] に つい て の 理解 

コ 復 数 の イベ ント プロ シー ジャ 間 で 1 つの 変数 を 共有 する 方 法 

ココ MouseDown と MouseUpD イベ ント の 組み 合わ せ で プロ シー ジャ を 組み 立て る 








ココ MouseMove イベ ント の 使い 方 














クリ ッ ク と ダブ ルク リッ ク 
1 つの コン トロ ー ル で の 、Click イベ ント と DDIClick イベ バン ト の 使い 
分 け と 、 そ れ ぞ れ の イベ ント プロ シー ジャ の 記述 方 法 を 覚え ます 





人 学 回 作成 する プロ グラ ム Fl 













メー ジ を クリ ッ タ ク 
また は ダブ ルク リッ ク 


ンク リック する と こと 梓 線 
が 表示 され る 








ウリ 
= Lesson08 


う Learning Edition 





ダブ ルク リッ ク す る と 
メッ セー ジ が 表示 され る 


WindowsS プロ グラ ミン グ の 特徴 の 1 つ 、 イ ベン ト 処 理 に つい て 理 
酢 す る た め に 、 な じみ の 深い イベ ント で ある マウ ス の | クリック | 


と | ダブ ルク リッ ク 」 を 使っ た プロ グラ ム を 作成 し ます 。 
この プロ グラ な は 、 イ メー ジコ ント ロー ル を クリ ッ ク し た 場合 と 
ダブ ルク リッ ク し た 場合 で 、 別 々 の 処理 を 行い ます 。 











LeSSoOn8B クリ ッ ク と ダブ ルク リッ ク 


トロ ー ル と プロ パテ ィ の 設定 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


上 ツー ル ボ ックス の [Image] ボタ ン を クリ ッ ク す る 


| ーー | 
国 *』 3 








プロ バテ ィ ウ ィ ン ド ウ で [Picture] プロ バテ ィ に 0 
「angel.gif] ファ イル を 設定 する 

この 操作 を 行う 前 に 、 作 
「 肖 し た 4 メー ジコ ンド 9 
msesiimseee l ー ル が 選択 され て いる こ 















| 王 業 II toto 軒 | ここ を クリ ッ ク と を 確認 し て くだ さい 。 
1 (な し ) 






0 - 定 値 


IlMousslcon 
MoussPointe 
| OLEDraglMod 
OLEDropMod 
呈 Picture 









し | 「angel.bmp」 
mm コー| と | に に を クリ ッ ク の 保存 場所 


se 


この ファ イル は 、 付 録 CD- 


6 ROM の 「Leeson08」 フォ 
に を だ ウリ ッ ツ ウ ル ダ に 収録 ミ きれ て いま す 。 


9 チ + の ) 計 み 込み | も 


57 
第 ど 日 1 時 限 目 イベ ント を 使う 








に ー ジ コン トロール に 選択 し た 画像 が 表示 され る 


を 由 還 
(すい 

まき 

きま 四 
こま 

ま 
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きま 

キ 3 電 
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人 ニニ ーー ニー ニー ニー ニニ ーー 





ョ Form1: に ー -Click 





_ Private Sub Tmage1 C1iock( ) 
| T エ made1 .BO ェ deGrS モ 1e = 1 
1 End Sub 











ーー | ら C1 1 ー Fcr mi1 _) 


| limaee1 <| [piciick 。 
 P エ 1va モ e Sub Tmage1 Db1C1iock ( ) 
MsgBox "ダブ ルク リッ ク さ れ ま し た 
| T エ made1 .BOrderSt 上 le = 0 
En Sub 





者 表 ワン ポイ ント アド バイ ス 





コー ド ワ ィ ンド ワウ で 異な る プロ シー ジャ を 切り 替え る に は 、 プ ロ シ ー ジ ャ メニ ュー を 
人 RS タン ロン シー ー ジ ャ を 林 択 し ます 。 


Private Sub Imagel_Cli 
5 agel.BorderStyle = 
Sub 











LeSSOn8 クリ ッ ク と ダブ ルク リッ 





衣 。 ま ず 、 フ ォ ー ム に 配置 し た イメ ー ジ コン トロ ー ル を ダブ ルク リッ ク し て 、 コ ー ド 
ウィ ンド ウ を 表示 し ます 。 コ ー ド ウィ ンド ウ に は 、 イ メー ジコ ント ロー ル の Click 
イベ ント プロ シー ジャ が 表示 され ます 。 


み ユー ザー に よっ て ウィ ンド ウ の 部 品 が 操作 され た と き 、 そ の 操作 を | イベ ント 」 
と 呼び ます 。 イ ベン ト は 何 種類 も あり 、 そ れ ぞ れ 名 前 が 付い て いま す 。 例え ば 、 マ 
ウス が クリ ッ ク さ れれ ば |Click」 イベ ント が 、 キ ー ボ ー ド の キー が 押さ れれ ば 
| KeyDown| イベ ント が 発生 し ます 。 

Visual Basic に よる Windows の プロ グラ ム は 、 こ の ユー ザー が 起こ し た イベ ント 
に 対応 し て 、 プ ログ ラム の 処理 を 作成 し て いき ます 。 


イベ ント が 発生 する と 、 そ の イベ ント と 同じ 名 前 の プロ シー ジャ が 呼び 出さ れ 、 
プロ シー ジャ に 記述 し た コー ド が 実行 きれ ます 。 こ れ を 、| イベ ント プロ シー ジャ 」 
と 呼び ます 。 イ ベン ト プ ロ シー ジャ は 、 そ の オプ ジェ クト 名 と 必ず ペア に な っ て プ 
ロ シ ー ジ ャ が 形成 され て いま す (Pl 参照 ) 。 

例え ば 、 コ マン ド ボ タ ン が 押さ れれ ば 、 コ マン ド ボ タ ン の オブジェ クト 名 
[CommandButton1l」 と イベ ント 名 「Click] を |「 | (アン ダー スコ ア ) で つない だ 
名 前 |「CommandButton1 ClickO0] と いう イベ ント プロ シー ジャ が 呼び 出さ れ ま す 。 





CommmandBu モ on1 C1ioCk ( ) 


オフ ジ ェ ン ト 名 _ イベ ント 名 


フォ ー ム に 配置 し た イメ ー ジ コン トロ ー ル が 、 ユ ー ザ ー に よっ て クリ ッ ク さ れれ 
ば 、「Image1_ Click()」 と いう プロ シー ジャ が 呼び 出 き れ ま す 。 こ の 時 に 、 な に か 処 
理 を 実行 し た けれ ば 、 こ の プロ シー ジャ に 処理 を 記述 し ます 。 こ れ で 、 ユ ー ザ ー が 
イメ ー ジ コン トロ ー ル を クリ ッ ク す る た びに 、Click イ ベン ト プ ロ シー ジャ が 実行 さ 
れれ ます 。 





本 プロ グラ ム で は 、 イ メー ジコ ント ロー ル が クリ ッ ク さ れる と 、 イ メー ジ 全 体 に 
枠 線 を 付け ます 。 
Imagel1 Cliick() プ ロ シ ー ジ ャ に 、 以 下 の コ ー ド を 記述 し ます 。 





T エ made1 .BO て rdGrSt モ le = 1 


この 記述 は 、 イ メー ジコ ント ロー ル の [BorderStyle] プロ パテ ィ を 、「1 - 実線 」 
に 設定 し ます 。 こ の プロ パテ ィ が 設定 され る と 、 イ メー ジコ ント ロー ル は 枠 線 で 囲 
まれ て 表示 され ます 。 





第 ど 日 1 時 限 目 イベ ント を 使 








BorderStyle が ] の 


表示 状態 





次 に 、 イ メー ジコ ント ロー ル が ユー ザー に よっ て ダブ ルク リッ ク さ れ た 場合 の 処 
理 を 作成 し ます 。 

ダブ ルク リッ ク さ れ た 場合 は 、Cliick イ ベン ト プ ロ シー ジャ で は な く 、 ダ ブル クリ 
ッ ク さ れ た と き の イ ベン ト プ ロ シー ジャ 「DbIClick」 に 、 そ の 処理 を 記述 し ます 。 


コー ドウ ィ ン ド ウ で DbICliick イベ ント プロ シー ジャ を 作成 する に は 、 コ ー ド ウィ 
ンド ウ の イベ ント 用 リス ト ボ ックス を クリ ッ ク し て 、 イ ベン トリ スト を 表示 し ます 。 
そし て 、 リ スト の 中 か ら 、「DbIClick| イベ ント を 選択 し ます 。 









Image1.BorderStyle = 1 





イベ ント 用 リス ト 
ボッ クス 










OLESetData 


イベ ント が 選択 され る と 、 自 動 的 に コー ドウ ィ ン ド ウ に その イベ ント ・ プ ロ シ ー 
ジャ が 挿入 され ま す 。 
この と き 、 プ ロ シ ー ジ ャ 名 は 「Imagel_DbIClick0」 に な り ま す 。 





TE 














saec1 _ llpsicisck 0 、0、〔 パ 〔 パ <| 
| | Private Sub Image1 _ Click() 0 
Image1.BorderStyle = 1 こ 





| End Sub 
貞 目 Private sub Image1_DbIClickO 








時 | End Sub 





この プロ グラ ム で は 、 ダ ブル クリ ッ ク イ ベン ト が 発生 する と 、 メ ッ セ ー ジ ボッ ク 
ス を 表示 し 、 イ メー ジコ ント ロー ル の [BorderStyle] プロ パテ ィ を 「0 - な し | に 
設定 し て 枠 線 を 消し ます 。 こ の 処理 を 、DbIClick イベ ント プロ ジー ジャ 人 に 記 玉 しま 
すら 





LeSSOn8 クリ ッ ク と ダブ ルク リッ 


P エ ュ ゞ at 上 Sub Tmage1 Db1C1iok ( ) 
MsgBox "ダブ ルク リッ ク さ れ ま し た 
エ made1 .BO エ ddGrS モ 1e = 0O 

End Sub 


是 人 プロ グラ ム を 実行 し ます 。 イ メー ジ を クリ ッ ク す る と 、 イ メー ジ の 周り に 3D 表 
示 の 枠 線 が 設定 きれ ます 。 イ メー ジ を ダブ ルク リッ ク す る と 、 メ ッ セ ー ジ ボッ クス 
が 表示 され 、 イ メー ジ の 枠 線 が 消え ます 。 


飼 回 は 、1 つの コン トロ ー ル に 2 つの イベ ント 処理 を 作成 し まし た 。 イ ベン ト プ ロ 
シー ジャ は 、 フ ォ ー ム や コン トロ ー ル (オブ ジェ クト ) に 対応 し て 、 そ れ ぞ れ の オブ 
ジェ クト に よっ て 異な る プロ シー ジャ が 設定 され て いま す 。 

例え ば 、 イ メー ジコ ント ロー ル に は DbIClick イベ ント が あり ます が 、 コ マン ド ボ タ 
ンコ ント ロー ル に は あり ませ ん 。 な ぜ な ら コ マン ド ボ タ ン に は 「 ダ ブル クリ ッ ク 」 と 
いう 動作 が な いか ら で す 。 

それ ぞ れ の オブ ジェ クト が 、 ど の よう な イベ ント に 対応 し て いる の か は 、 コ ー ド ウ 
ィ ン ド ウ の イベ ント リス ト ボ ックス を 見 れ ば わか り ま す 。 


眼 フォ ー ム を ダブ ルク リッ ク す る と 、 フ ォ ー ム の 痛 景色 が 黄色 
(&HFFFF&) に な る よう に し て くだ さい 。 


解答 は 巻末 に 一 


幸 参 ワン ポイ ント アド バイ ス 


「Lesson8.vbp」 を 実行 し て 、 最 初 に イメ ー ジ を ダブ ルク リッ ク す る と 、 ク リッ ク 
イベ ント の 処 理 も いっ し ょ に 動作 し て し まい ます (BorderStyle が 1 に な っ た 後 、 メ 
ッ セ ー ジ が 表示 され る )。 

これ は 、 ダ ブル クリ ッ ク が クリ ッ ク 動 作 も 内 包 ポ し て いる た めで 、 実際 の プロ グラ ム 作 
成 で は 、 ク リッ ク と ダブ ルク リッ ク の ら つ の 処理 を 1 つり コン トロ ー ル 内 に いっ し ょ 
に 記述 する こと は 、 避 けた ほう が いい で し ょ よう 。 

また 、 プ ロ シ ー ジ ャ か ら プ ロ パ ティ を 操作 する 場合 、 プ ロ パ ティ に よっ て は 値 の 取得 
し か で きず 、 値 の 設定 が で き な い も の も ある の で 、 注意 し て くだ さい 。 





第 ど 日 1 時 限 目 イベ ント を 使 ら の 


マウ スイ ベン ト を 使う 


マウ スイ ベン ト の 1] つ 「MouseDown」 イベ ント の 使い 方 と コー ド か 
ら コ ント ロー ル の プロ バテ ィ を 操作 する 方 法 を 覚え ます 。 





人 @ 飼 回 作成 する プロ グラ ム 


外 。、 ジコ ロス イペ ント 一 MoussDown 








Welcomel 


画 。 マ ロス イペ ント 一 MoussDowyn 


=- で や コ Lesson09 


の Learninq Edition 


ここ か が か ら の レッ スン で は 、 数 ある イベ ント 如 理 の 中 で も 応用 範囲 
の 広い 、 マ ウス の イベ ント を 使っ た プロ シー ジャ の 作成 を 勉強 し て 
いき ます 。 こ の プロ グラ ム は 、) フォ ー ム 上 で マウ ス で タリ ッ ウ みる 
と 、IMouseDown]」 イベ ント を 検出 し て 、 ク リッ ク し た 位置 に ラベ 
ルコ ント ロー ル が 移動 する プロ グラ ム で す 。 











LeSSOn9 マウ スイ ベン ト を 使う 





円 コン トロ ー ル と プロ パテ ィ の 設定 


※ 新 し いい プロジェク ト と フォ ー ム を 用 意 し ます 。 ぐ を 選択 
ペン フォ ー ム を 選 


Form] の [Caption] プロ パテ ィ の 値 を 「 マ ウス イ 新しい プロ ジェ クト を 作 


ふさ ヽ ー ガ we 成 し た 直後 は 、 フ ォ ー ム 

ベン トー MouseDown」 に 秋 更 する が 選択 され て いま す ( フ 

」 - ォ ー ム の ハン ドル が 表示 
( [ 状態 ) り 。 そ の まま プロ パテ 

IForm1 Farm | ィ を 変更 し て くだ さい 。 


王 ] 本 | 項目 | 












| | &HBUHUUIUF& 


2 - 可 | 
マロ スイ ペ ベント 一 MaussDown ] この 値 を 変更 


CHpControl= True 
(ControlBiox Trug 


に > NN 生 ま の デベ 1 






み フォ ー ム の Caption が 変わ る 


3 w 「 ロ コス イイ べべ 上 8 ー oussDowwn 


[| マウ スイ ベン トー MouseDown」 に 変わ る 





ツー ル ボ ックス の [Label] | 薦 』 を クリ ッ ク し 、 フ ォ | 呈 シー ルポ ックス の 
ー ム 上 で ドラ ッ グ し て ラベ ルコ ント ロー ル を 配置 する トップ 名 

ツー ル ボ ックス の ボタ ン 
の 上 に マウ スポ イン タ を 
移動 する と 、 そ の ボタ ン 
の 名 前 が 表示 され ます 。 


っ う 











吉 ご 日 時限 目 イベ ント を 使う 





ぐ プ ラベル を 選択 


この 操作 を 行う 前 に 、 作 


成 し た ラベ ルコ ント ロー 
ル が 選択 され て いる こと 
を 確認 し て くだ さい 。 


6 人 





コー ドウ ィ ン ド ウ で [Caption] プロ パテ ィ の 値 を 
[Welcome!l」 に 変更 する 


ID ] 
ILabel1 Labsl < | | 
王 1 本 | 項目 中 | | 


上 ご に ら 


BackCalcr 




















に ケタ ダフ プル クウ クリック 
[Welcomel」 と 入力 


| | &H8HHHHHF& 
1 - 二天 BH 
n- な し 

じ aption Welcome! 
D ョ t ョ F js 
D ョ ョ For mat 
DatalMambsr 













LFgnti- プ ロバ ディ の […」 ボタン を ク MMw の 2 
フォ ント サイ ズ を 「14」 に 変更 する 


泊 と Be 呈 に 1 


ILabel1 Labsl ェ | 


王 1 本 | 項目 | 












D ョ takambsr 

Draglcon (な し ) L ここ を クリ ッ ク 
Drag Mods ロロ - 手動 

Enablsd True 

Tn MS ロコ シッ ツク の ここ を クリ ッ ク 
ForeColor 較 HInnFF& 

Hsight Jp 





ーー Eoicsm 





ォ ン ト 
Y に 





> さこ ト ゞ 
ホー ルド イ 別 9 
MS Sans Serif ー ゴ 
還 ーー ト 4 ン 人 4 ここ な を リッ ン 
文字 飼 り サッ リフ 一 ーーーーーーーーーー 
「 取り 消し 線 (KO Mi 
「 下線 (①) | ぬ Aa あぁ ア ァ 亜 宇 
書林 の 種類 (BR: 





LeSSOn9 マウ スイ ベン ト を 使う 

























































ラベ ルコ ント ロー ル を 文字 の サイ ズ に 合わ せ て 
納 中 する 
まま ル 
2 コン トロ ー ル の サイ ズ を 
陸生 その 周囲 に 表示 され る サ 
| 1455 x 360 ] イズ 変更 ハン ドル ( 里 い 
四角 形 ) を ドラ ッ グ し ま 
二 : ら 
[ForeColOr| プロ バ パティ (文字 色 ) の [ヤマ ] ボタ ン 
を クリ ッ ク し 、 赤 (SHOOOOOOFF&S) に 変更 する 
ID | 
ILabell Labsl 
全 人 本 | 項目 中 | 
D ョ 1 ョ ご OurCE ォ 
で MEE 
Drag Mods ロ n- 手動 L ここ を クリック 
Enabled True 
Font MS ロコ シッ クツ 
に 較 : HOnnnnnFF& マー 用 | ここ を クリ ッ ク 
Hsjght gb 
Index 
Laft 中 目 e 
王 ] 本 | 項目 別 | 
Font 0 ヨン ウー 
Fors じ olor 
本 世 由 | ここ を クリ ッ ク 
Laft 
Link sm 
Link Mods 2 置 | ここ を クリ ッ ク 
LinkTimso 二 生 粒 議 康 l 上 限 江 
Link Topic 
Mou=slco 
Mou==Poi 
ForeColor 3 
オフ ジェ ルト 由 す る 前 景 
6S 


第 ど 日 ら 時 限 目 イベ ント を 使う 


0 

















ss 


_ Private Sub FOrmm OS て Da AS 本 Shit As エ n も ee 計 
| メ As Sing1e, Y As Sing1e ) 
エエ BuEon = 1 "Then 
Labe11.LeFE = 又 
| Labe1 1 . op ニニ Y 
| End エモ 
End Sub 


も 一 ビニ ーーー… 











』 


この プロ グラ ム は 、 フ ォ ー ム を マウ ス で クリ ッ ク す る と 、 ク リッ ク し た 位置 に ラ 
ベル コン トロ ー ル が 移動 する プロ グラ ム で す 。 

使用 する イベ ント プロ シー ジャ は 、 フ ォ ー ム の MouseDown イ ベン ト プ ロ シー ジ 
ャ で す 。 





配置 し た フォ ー ム を マウ ス で ダブ ルク リッ ク す る と 、 コ ー ド ウィ ンド ウ が 開き ま 
す 。 こ こ に は 、 フ ォ ー ム の Load イベ ント ・ プ ロ シ ー ジ ャ が 表示 され て いま す の で 、 
イベ ント リス ト ボ ックス か ら 「MouseDown」 イベ ント を 選び ます 。 


lm 較 | ここ を クリ ッ ク 










Link Execute 
Link 
Load 
LostFocus 
紹 ouse Down 
MousslMove 
MouseUp 
DOLECompleteDrag 
OLEDragDrop 
OLEDragOver 
OLEGiveFssdback 
OLESstData 















用 | ここ を クリ ッ ク 





信 コー ドゥ ィ ン ド ゥ に 、 こ の MouseDownm イ ベン ト プ ロ シー ジャ 
|Form_MouseDown」 が 挿入 され ます 。 
MouseDowyn イ ベン ト は 、 ユ ー ザ ー が マウ ス の ボタ ン を 押し た と き に 発生 する イ 
ベン ト で す 。 |Click」 イベ ント と の 人 違い は 、 ク リッ ク が 「 ボ タン を 押し て 離す | 動 
作 を 連続 し て 行っ た と き に 発生 する の に 対し 、MouseDown イベ ント は マウ ス の ボ 
タン を 押し て いる と き に 発生 する イベ ント で ある こと で す 。 








LeSSOn9 マウ スイ ベン ト を 使 


さら に 、 こ の イベ ント プロ シー ジャ は 、 実 行 さ れる と 押さ れ た ボタ ン の 種類 や 、 
ボタ ン が 押さ れ た 場所 の XY 座標 位置 な どの 情報 を 、 変 数 ( 下 の コ ラム 参照 ) に 格 
綱 し ます 。 
【MouseDown イベ ント プロ シー ジャ の 書式 】 
P ェ エ ュ で a モ e Sub わ Form MouseDowrm ( Bu 上 上 on AS Tnteder, 
ShiF モ 上 As TnEteger, 又 As Single, Y As Sing1e ) 


Bu ヒ 上 On AS エ nEed@er 
マウ ス の ボタ ン が 押さ れ た と き の 、 ボ タン の 種類 が 変数 Batton に 格 
納 さ れ ま す 。 
1 一 左 ボ タン 
2 一 石 ボ タン 
4 一 中 央 ボタ ン (3 ボタ ン の 場合 ) 


ShiF 上 As エ nE 上 edeGr エ 
マウ ス の ボタ ン が 押さ れ た と き に 、 い っ し ょ に 押さ れ て いた キー の 種 
類 が 変数 shiEt に 格納 され ます 。 複数 の キー が 同時 に 押さ れ た 場合 は 、 
それ ぞ れ の 値 の 和 が 格納 され ます 。 た と えば ctr1 キー と shiEt キー 
を 同時 に 押し た と き は 「3」 が 格納 され ます 。 


1ーSshifEt キー 
2 一 Ctr1 キー 
4 一 A1t キー 


メ As Single, Y As Sing1e 


マウ ス の ボタ ン が 押さ れ た 時 の 、 カ ー ソ ル 位 置 の x 座標 が 変数 x に 、y 
座標 が 変数 y に それ ぞ れ を 格納 され ます 。 


[変数 (へ ん すう )」 と は デー タ を 一 時 的 に 入れ て お くく 入れ物 の こと で す (次 の レッ スン で さ 
ら に 説明 し ます )。 変数 に は ユー ザー が 自由 に 定義 で きる も の や 、 プ ロ シ ー ジ ャ が 処理 の た め に 
あら か じ め 用 意 し て いる も の な ど が あり ます 。 


この レッ スン で 登場 し た 、 プ ロ シ ー ジ ャ に 渡す 変数 は 、 正 確 に は | 引数 (ひき すう )」 と 呼ば 
れ ま す 。 引数 は ユー ザー が 勝手 に 変更 する こと は で きま せん 。 こ の 例 で は 、「Form_MouseDown」 
と いう プロ シー ジャ を 処理 する た め に Button、Shift、X、Y と いう 4 つの 異な る 引数 が 用 意 き され 
て いま す 。 


Visual Basic 初心 者 な ら 、 別 に どちら も 変数 だ と いう こと で 、 大 きく と ら え て し まっ て も か ま 
いま せん 。 本 書 で は 特に 区 別 す る 必要 が な い 限 り 、 ど ちら も 変数 と いう 呼び 方 を し て いま す 。 





第 ど 日 時 限 目 イベ ント を 使 


加 








生 








この プロ シー ジャ で は 最初 に に 、 マ ウス の どの ボタ ン が 押さ れ た の か を チェ ッ ク し レ し 
ます 。 そ し て 、 そ の ボタ ン が 左 ボ タン (Button=1) で あれ ば 、 ラ ベル コン トロ ー ル 
ILabell] の [Leftl プロ パテ ィ に マウ ス の XX 座標 位置 を 、[Top] プロ パテ ィ に マ 
ウス の Y 座 標 位置 を 代入 し ます 。 


エエ 上 Bu モ on = 1 Then 
Labe11.LeEt 上 = 文 
Labe11.ToOp = 
End エモ 


左 ボ タン が 押さ きれ た か どう か を 判断 する の に 、IfE ス テー トメ ント を 使用 し て いま 
す 。 ユー ザー が 左 ボ タン を 押せ ば 、 プ ロ シ ー ジ ャ の 変数 Button に 「1| が 格納 され 
ます 。 こ の 値 を 使っ て 、 も し 変数 Button の 値 が 左 ボ タン で あれ ば 、 ラ ベル コン トロ 
ー ル を 動作 きせ る 処理 を 実行 し ます 。 そ れ 以 外 の ボタ ン が 押さ きれ た 場合 は 、 な ん の 
処理 も 行い ませ ん 。 


ラベ ルコ ント ロー ル の 表示 位置 を 変え る に は 、[Left] と [Top] プロ パテ ィ の 値 
を 変え ます 。[Left] は 、 ラ ベル コン トロ ー ル の 左右 方 向 、[Top] は 上 下方 向 の 位 
直 を 設定 し ます 。 こ こ に 、MouseDown イ ベン ト が 発生 し た マウ ス の 座標 位置 を 格 
絹 し て いる 変数 |X] と 「[Y] の 値 を 代入 すれ ば 、 ボ タン が 押さ れ た 位置 が ラベ ル 
コン トロ ー ル の [Left] と [Top] プロ パテ ィ に 設定 され ます 。 

[Left] と [Top] プロ パテ ィ の 値 が 変わ る と 、 ラ ベル コン トロ ー ル は その 位置 に 
再 表 示さ れ ま す 。 [Left] と [Top] は 、 フ ォ ー ム の 左上 を 原点 (0、0) と し て 、 そ 
こ か ら の 距離 を 設定 する プロ パテ ィ で す 。 


フォ ー ム の 左上 が 人 原 点 
TOD:U Left:O 


TE 





プロ グラ ム を 実行 し て 、 フ ォ ー ム の 好き な 位置 を マウ ス で クリック も し て ぐだ さい 。 
ボタ ン を 押し た 時 点 で 、 そ の 位置 に 「Welcomel| と いう 文字 が 移動 し ます 。 








LesSOn9 マウ スイ ベン ト を 使 


Click イベ バン ト は 、 発 生 し て も プロ シー ジャ に な に も 情報 を 返し て こない の で 、() 
内 が 空白 に な っ て いま す 。MouseDown イベ バン ト は 、 い ろ い ろ な 情報 を 返し て くる の 
で 、() 内 に どの よう な 情報 が 返っ て くる の か が 記述 され て いま す 。 

ゲー ム プ ログ ラム な ど で 、 ク リッ ク さ れ た 場所 を 使い た い 場 合 に は 、 こ の 
MouseDown イベ バン ト プ ロ シー ジャ を 使う と 便利 で す 。 


る c》 練習 問題 


フォ ー ム の 上 で マウ ス の 右 ボ タン を 押し た と き に 、 ラ ベル コン トロ ー 
ル が 移動 する よう に 変更 し て くだ さい 。 


【 ヒ ント 】 
MouseDown イベ バン ト プ ロ シー ジャ で は 、 マ ウス の 右 ボ タン が 押さ れ 
る と 、 変 数 Button に は 「2」| が 格納 され ます 。 


解 合 は 巻末 に 一 


者 馬 ワン ボ ポイ ント アド バイ ス 





If ステ ー ト メン ト は 、 あ る 値 や 式 の 結果 で 、 以 降 の 処理 を 振り 分 けた いと き な ど に 使 
いま す 。 式 の 結果 が 真 (True) の 場合 は 、「End If] まで の 負 理 を 実行 し ます 。 


【 書 式 】 
TE 式 mhen 
eee 処理 1 
時 処理 2 
End TE 


で で の る で で で で の で の で っ で で で で お の で で の の の の で で の で の の で の の の で で の で で で で で の で で の で お の の る る の お の お の で で 9 の さあ る つる る の する る の る の 


ラ 回 の 例題 で は 、 押 され た ボタ ン の 種類 を 使っ て 、 処 理 を 振り 分 け て いま す 。 





第 どら 日 ら 時限 目 イベ ント を 使 


則 遇 皿 則 由 
HHH HEH 
HH 人 | HH 





変数 を 使う 


イベ ント プロ シー ジャ で 扱う 変数 の 使い 方 を 通じ て 、「 変 数 ] に つい て 
理解 を 深め ます 。 





リアス スマ /7 // 


『 4 / 





ー テ 回 作成 する プロ グラ ム 


| 語 変 夫 を 使う 





ョ bell 














所 Lesson10 | [Ns 


0 ジン NNESREE2TSPPSEYSNPCSSEKYS 人 本 EEAEYSCSYSKrPP の yeP の SS6RAEE 和 EE お Pe vw アト 


上 季 日 目 (| 


| 
I 
1 
| 
| 
| 


(UPm 


MouseUp イベ ント を 使っ て 、 フ ォ ー ム で ボタ ン が 離さ れ た 位置 
を ラベ ルコ ント ロー ル に 表示 し ます 。 

MouseUp が 発生 する と 、 そ の と き の マ ウス に 関す る 情報 が 、 イ 
ベン ト プ ロ シー ジャ の 変数 に 格納 され ます 。 こ の 変数 を 、 文 字 列 と 
組み 合わ せ て 、 ラ ベル コン トロ ー ル で 表示 し ます 。 














Lesson10 変数 を 使う 





= まわ 2 2 の | アミ よら 3 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


Form] の [Caption] プロ パテ ィ の 値 を | 変数 を 使 
うつ 」 に 変更 する 





|Form1 Form | 
全体 | 項目 串 | | 
ュー コロ | ここ を ダブ ルク リッ ク 
F al|= ぉ = “ 
 「 変 数 を 使う 」 と 入力 





目 &HIHCUC0UC ロ & 


2 - 可 妥 
六 雪 1] コ 


ClipControp に Truge 


ツー ル ボ ックス の [Label] A を クリ ッ ク し 、 フ ォ ー 
ム 上 で ドラ ッ グ し て ラベ ルコ ント ロー ル を 配置 する 





] 
[ 


プロ バ パティ ウィ ンド ウ で 【[BorderStyle] プロ バテ ィ を 








クリ ッ ク し 、[ マ ] を クリ ッ ク し て [1 - 実 線 ] を 選 応 
DE 
Label1 Labal ヨコ | 
全体 | 項目 別 ] | 










Labsl1 
n - 左 揃 え 


に (この シノ リッ ン 
リン 
6 っ 2C2 が グリ ッ ジ 







F ョ |== 
| &H8UnOU00F& 
- 二天 B 明 


Dataluls mbsr 





ツー ル ボ ックス の 
ンジ ボタ ン 名 


ツー ル ボ ックス の ポ ボタン 
の 上 に マウ スポ イン タ を 
移動 する と 、 そ の ボタ ン 
の 名 前 が 表示 され ます 。 


ぐう ベル を 選択 
この 操作 を 行う 前 に 、 作 
成 し た ラベ ルコ ント ロー 
ル が 選択 きれ て いる こと 
を 確認 し て くだ さい 。 


プロ パテ ィ 値 の 
ぐ ぽ 切り 替え 


[BorderStylel プロ パテ 
ィ を ダ プ ルク リッ クレ し て 、 
[0:- な し ] と [1 - 実線 ] 
を 切り 替え る こと も で き 
ます 。 


第 ど 日 時限 目 イベ ント を 使う 








ems mm ee 人 ーneemrre mm mm jm 人 





P エ ュ ゞ ate Sub Form MouseUp ( Button As エ n ヒ GOG エ , Sh ユ F 上 AS Tnteger, | 
メ AS Sing1e, Y As Sing1e ) | 
Dim Message AS Sr ェ ing | 


TE Button = 1 mhen | 
Message = "マウ ス の 位置 は "sgx gregry | 
Labe1 1 .Cap 上 ュ 1on = Messade | 

End エモ | 








MouseUp イ ベン ト は 、 ユ ー ザ ー が マウ ス の ボタ ン を 離し た と き に 発生 する イベ ン 
ト で す (押し た と き は MouseDown イ ベン ト で し た ね ) 。 こ の プロ グラ ム で は 、 フ ォ 
ー ム の 上 で MouseUp イベ ント が 発生 し た と き の 処 理 を 作成 し ます の で 、 フ ォ ー ム 
の MouseUp イ ベン ト プ ロ シー ジャ を 使い ます 。 フ ォ ー ム を ダブ ルク リッ ク し て コ 
ー ド ウィ ンド ウ を 開き 、 イ ベン ト 用 リス ト ボ ックス か ら MouseUp を 選び ます 。 


ml 較 | ここ を クリ ッ ク 
の 衝 | ここ を クリ ッ ク 


」 人 と 
2 上 71 還 四 






n 
ト 

1 上 て = | 
EComplsteDrag 「 


OCREPRPCRTEERPEETPCTPYPY で YY つこ で 1 の YecrrYwrrPtwrvraffrSpmf2PPYPG041 て ココ ご 1 
2 科 9oEDfROOA 0 2 














MouseDown イ ベン ト と 同様 に 、 こ の イベ ント が 発生 する と 、 そ の と き の マ ウス 
ボタ ン の 種類 、 キ ー の 種類 、 お よび マウ スポ イン タ の 座標 が 、 イ ベン ト プ ロ シー ジ 
ャ の 変数 に 格納 され ます 。 

この プロ グラ ム は 、 マ ウス の 左 ボ タン が 押さ れ て 離さ れ た と き の マ ウス ポイ ンタ 
の X/Y 座標 位 置 を 、 文字 列 と 組み 合わ せ て メッ セー ジ を 作成 し 、 ラ ベル コン トロ ー 
ル に 表示 し ます 。 


最初 に 、 変 数 の 宣言 を 記述 し ます 。「Message」 と いう 変数 を 使い ます 。 
プロ シー ジャ に 「Dim Message As」 と 入力 し て スペ ー ス キー を 押す と 、 コ ー ド 














う 


G 


・ 


LessSon10 変数 を 使 


ウィ ンド ウ に リス ト が 表示 され ます 。 そ の まま 「String] と 入力 する か 、 リ スト ボ 
ックス の |String」 が 選択 状態 に な っ た ら 、 ス ペー スキ ー を 押し て 入力 し ます 。 






SO は 
LESSUEERESS LBH 
Fcrs | IMoussUp yi 





- ま ャ | 
| Private Sub Form_MouselUp(Button As Integer. Shift As Integer。 ー】 
Dim Message As str 


: | ee SS Go 
、 End Sub 月 EC の -』 スペ ーー スギ 一 を 押す 
軸 放 TetBox 


諾 Timer 

UssrControl 

UserDocument 

ご Variant 





ます る よう だ し ます 。 


エモ Button = 1 "mhen 


メッ セー ジ の 作成 は 、 文 字 列 連結 演算 子 「&| を 使っ て 行い ます 。 

メッ セー ジ を 作成 する 場合 は 、 直 接 文字 列 を 指定 する と き は その 文字 を " (引用 
符 ) で 囲 み ま す 。 変数 を 指定 する 場合 は 、 そ の まま 変数 名 を 記述 し ます 。 そ し て 、 
それ ぞ れ を |「& る | で つなげ れ ば 、1 つ の 文字 列 が 完成 し ます 。 


Message = "マウ ス の 位置 は "sgx sg rr gy 


この プロ グラ ム で は 、 マ ウス の 左 ボ タン が 押さ れ て 離さ れる た びに 、 変 数 X と Y 
の 値 を 使っ て メッ セー ジ を 作成 し ます 。 


作成 し た メッ セー ジ は 、 い っ た ん 変数 「Message」 に 格納 し ます (この 変数 の 中 
身 は 、MouseUp イ ベン ト が 発生 する た びに 更新 され ます ) 。 そ し て 、 ラ ベル コン ト 
ロー ル の [Caption] プロ パテ ィ に 、 そ の 変数 の 値 を 代入 し ます 。 こ れ で 、 マ ウス の 
ボタ ン が 離さ れ た 座標 を 示す メッ セー ジ が 、 ラ ベル コン トロ ー ル に 表示 され ます 。 


変色 と は 、 デ ー タ を 一 時 的 に 入れ て お く 入 れ 物 の こと を いい ます 。 常に 内 容 が 変 
更 さ れる の で 、 毎 回 値 が 変化 する 処理 に 使用 し ます 。 変数 は 、 ユー ザー が 自由 に 作 
成す る こと が で きま す 。 そ し て 、 変 数 を 使う と き は 、Dim ス テー トメ ント を 使っ て 
宣言 ] する 必要 が あり ます 。 す な わ ち 、「 これから こう いう 名 前 の 変数 を 使う よ | 
と いう の を 、Visual Basic に 伝え る の で す 。 通常 、Dim ス テー トメ ント で 変数 を 宣 
言 する 場合 は 、 プ ロ シ ー ジ ャ の 先頭 で 行い ます 。 





第 日 3 時 限 目 イベ ント を 使 








Dim MessadeG AS 8 ヒエ ュ nqd 


変数 の 宣言 時 に は 、 使 用 する デー タ に 合わ せ た デ ー タ 型 を 指定 し ます 。 た と えば 、 
文字 列 を 格納 する 変数 を 使う の で あれ ば 、 変 数 名 の あと に |As String] と いう 文学 
列 用 の デー タ 型 を 付け 加え ます 。 整数 デー タ の 変数 で あれ ば 「As Integer」 を 記述 
し ます 。 


















テー タ 型 の 名 称 ( 型 指定 の 記述 ) メモ リ 使 用 量 



















文字 列 型 (String) (固定 長 ) 文字 列 の 長 さ 
バリ アン ト 型 (Variant) (数 値 
バリ アン ト 型 (Variant) (文字 列 ) らら バイ ト + 文字 列 の 長 さ 


デー タ 型 の 指定 は 、 そ れ ぞ れ の デー タ サ イズ に 合っ た メモ リ 領 域 を 確保 する た め 
に 行い ます 。 し か し 、 特 に な に も デー タ 型 を 指定 し な いと 、 変 数 は どの よう な デー 
タ で も 受け 入れ る 「Variant| 型 に な り ま す 。 

Variant 型 が 不都合 な の は 、 た と えば 文字 デー タ を 格納 し た と き で も 、 最 低 22 バ 
イト も メモ リ を 消費 し て し まい ます 。 1 文字 し か 格納 し な い の に Variant 型 を 指定 す 
る の は メモ リ の 無駄 遣い に な り ま す 。 メ モリ を 有効 に 使う た め に も 、 デ ー タ 型 に 合 
っ た 変数 の 型 指定 を 行う よう に し て くだ さい 。 





( 





[ 


変数 は 、 プ ログ ラマ が 自由 に 名 前 を 付け て か まい ませ ん が 、 以 下 の よ うな 一 定 の 
規則 が あり ます 。 


① 変 数 名 の 先頭 の 文字 に は 、 数 字 と 記号 は 使え ませ ん 。 

@ 変 数 名 に は 、 ビ リオ ド 〔(.) や 型 宣言 文字 と 同じ 名 前 は 使 つ こと が で きま せん 。 

③ 変 数 名 は 、 最 大 で 半角 255 文字 まで 使用 で きま す 。 変 数 名 に 全角 文字 の 日 本 
語 も 使用 で きま す 。 

④ 同 じ プ ロ シ ー ジ ャ 内 で 、 同 じ 変 数 名 を 使う こと は で きま せん 。 








Lesson10 変数 を 使 


変数 を コー ド 内 で 使用 する 場合 は 、 タ イプ ミス に 注意 し て くだ さい 。 次 に 示す 
3 つの 変数 は 、 そ れ ぞ れ ま っ た く 別 の 変数 と し て 扱わ れ ま す 。 


Dim Ange1 AS TnEede ェ 
Dim Ang1e As TnEeder 
Dim Angd1e AS エ n 上 Gder 


特に 、|1l (小文字 の エル ) と 「Il (大 文字 の アイ )、「O」 (大 文字 の オー) と 「0」 
(数 字 の ゼロ ) は 、 見 た 目 は 同じ よう で も 別 の デー タ と し て 扱わ れる の で 注意 し て く 
だ さい 。 


変数 は 、 こ の 例題 プロ グラ ム の よう に 、 プ ログ ラム を 実行 し な いと デー タ が 確定 し 
な いよ うな 場合 に 使用 する と 、 た い へ ん 大 きか な 効果 を 生み ます 。 そ し て 、 プ ログ ラム 
作成 時 は コー ド 内 に 式 だ け 記 述 し て お いて 、 実際 の 処理 は 実行 時 に 行う よう な 使い 方 
を し ます 。 

プロ シー ジャ 内 で 宣言 し た 変数 は 、 そ の プロ シー ジャ 内 の すべ て の 式 で 使用 で きま 
す 。 ま た 、 い くつ も 変数 を 使う 場合 は 、 プ ロ シ ー ジ ャ の 先頭 に 宣言 を まとめ て お く と 、 
使用 し て いる 変数 が 一 目 で わか り 便利 で す 。 


上 W 「Lesson10.vbp] の 、 マ ウス ポイ ンタ の 座標 位置 の 表示 を 、 ラ ベル コ 
ント ロー ル で は な く メ ッ セ ー ジ ボッ クス で 行う よう に 改修 し て くだ さい 。 


解答 は 巻末 に 一 


者 馬 ワン ポイ ント アド バイ ス 





変数 を 宣言 する に は 、Dim ステ ー ト メン ト を 使い ます 。「Dim」 の 後に 変数 名 を 書い 
て 「As」 で 、 デ ー タ 型 と つなげ ます 。 デ ー タ 型 を 指定 する こと で 、 変 数 に 格納 する 情 
報 の 種類 を 定義 むせ する こと が で き 、 プ ログ ラム の メモ リ を 有効 に 使う こと が で きま す 。 
呈 9 に ご 1 は 才 当 や も 生生 2A394a32 は maonaeCuSeoseoy 3 放 c 王 還 
pim 数 の 名 前 as デー タ 型 





第 どら 日 時限 目 イベ ント を 使 の 


ョ ヨコ Lesson11 


う Learnin Edition 





MouseDown と MouseUp の 組み 合わ せ 


復 到 の イベ ント プロ シー ジャ 間 で 1 つの 変数 を 共有 する 方 法 と 、2 つの 
イベ ント を 組み 合わ せ た プ ロ シ ー ジ ャ の 組み 立て 法 を 学び ます 。 





人 今回 作成 する プロ グラ ム 























問 回 四 





これ まで に 学習 し た MouseDown イベ バン ト と MouseUp イベ ン 


ト を 組み 合わ せ て 、 フ ォ ー ム に 直線 を 引き ます 。 フォ ー ム に 直線 を 
引く に は 、Line メソ ッ ド を 使用 し ます 。 こ の メソ ッ ド は 、 線 の 引き 
始め と 引き 終わ り に 座標 を 指定 し ます の で 、 こ れ を MouseDown と 
MouseUD イベ ント プロ シー ジャ の メ X/Y 座標 位置 を 使っ て 実行 し ま 
す 。 








LeSSon1 1 MouseDown と MouseUp の 組み 合わ せ 









汽 コン トロ ー ル と プロ パテ ィ の 設定 


ュー ン 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 こ れ 以 外 に 、 コ ント 
ロー ル と プロ バテ ィ の 設定 は あり ませ ん 。Form 1 の コー ドウ ィ ン ド 
ワウ を 開い て くだ さい 。 





oo 


| 呈 Projsct1 - Form1 (ロート) 


| | (Genera!) マ | | (Declarations) | 


ヤーーーー ペ ーーー ペ ーーーーーーーー マ ーママ ov ヘー ーーーーーーー 











ーーーーーーー…… ーーーー…ーーーーーーー 


D1m S ヒ a エ モ ヒ AS エ n 上 Gd@Gr 
D1m S ヒ a エ ヒモ YY AS エロ nE 上 edeGr 


引 FOrm1:FOrm-IMOuseDOown 
LESSUSESOUIGSSI ie 
' IFerm 。 語 lMeusepewn 。  、、 選 


P エ ュ ゞ で a モ eG Sub Form MouseDowm ( Bu 上 上 on AS Tnteger, ShiFE As Tnteger , 
双 As Single, Y As Sing1e ) 





エエ 己 u い 上 上 on = 1 Then 


も a 了 エ 仁 文 = 区 
も a エ も = 
下 nQd エモ 


、 互 nd Sub 


Form1:FOrm-IMouseUp 
| |Form ・| |MouseUp ・| | 


 P エ ュ で a モ G SuD Form MouSseUp ( Bu 上 ton AS Tnteger, ShiFE As Tnteger, 
メ As Sing1e, YY As Sing1e ) 





エエ Bu 上 on = 1 Then 
ユエ mG (8S ヒ a エ セ ヒ 又 , S ヒ a エ ヒヒ Y)-( 駐 , Y) 
End エモ 
End Sub 





第 ど 日 4 時 限 目 イベ ント を 使 (2 














フォ ー ム を ダ プ ルク リッ ク し て 、 コ ー ド ウィ ンド ウ を 開き ます 。 リ スト ボッ クス 


か ら 、 [Generall 、[Declarations] を 選び ます 。 


[Declarations] 









回 較 Occicstiors)。 








そし て 、 こ こ に 2 つの 整数 型 変 数 を 宣言 し ます 。 
この 宣言 は 、 各 プロ シー ジャ の 外 で 行わ れる こと に 注意 し て くだ さい 。 


D1m S ヒ a エ ヒモ 又 AS エロ 上 GdG エ 
D1m S ヒ a エ ヒ Y AS エロ 上 GdG 了 





ノ 


フォ ー ム の イベ ント リス ト ボ ックス か ら MouseDown イベ ント を 選び 、 コ ー ド ウ 
ィ ン ド ウ に Form_MouseDown イ ベン ト プ ロ シー ジャ を 挿入 し ます 。 

If ステ ー ト メン ト で 、 押 され た ボタ ン が 左 ボ タン の 場合 の 処理 を 作成 し ます 。 

MouseDown イ ベン ト プ ロ シー ジャ で は 、 変 数 |StartX]」 と 「StartY」 に 、 マ ウ 
スポ イン タ の 座標 が 格納 され て いる 変数 、「X] と 「Y| の 値 を 代入 し て お きま す 。 


エエ Button = 1 Then 
らら ヒ a エ 七 又 = 
ヒ a エ 上 YY = 
End エモ 


3 
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今度 は 、 フ ォ ー ム の イベ ント リス ト ボ ックス か ら MouseUp イ ベン ト を 選び ます 。 
プロ シー ジャ が 挿入 され た ら 、 離 さき れ た ボタ ン が 左 ボ タン の 場合 の 処理 を 作成 し 
ます 。 


P ェ ュ ゞ ae Sub Form Mouseup( . . . . . ) 


モジ ュー ル に つい て 
1 つの プロ グラ ム を 、 複数 の 塊 に 分 割 し た うち の 一 塊 を モジ ュー ル と いい ます 。 ま た 、Visual 


Basic で は 、| フ ォ ー ム モジ ュー ル 」 「 標 準 モ ジュ ー ル | [クラ スモ ジュ ー ル | な ど 、 こ の 言葉 を 
プロ グラ ム を 作成 する 単位 に 使っ て いま す 。 











LeSSOn1 1 MouseDown と MouseUp の 組み 合わ 


省 。。) フォーム の Line メ ソ ッ ド は 、 開 始 位置 と 終了 位置 を 指定 する と 、 そ の 2 点 問 に 直 
線 を 引き ます 。 
On 
rine ( 開始 位置 の x 座 標 , Y 座 標 ) - ( 終了 位置 の x 座 標 , y 座 標 ) 
この プロ グラ ム で は 、 マ ウス の ボタ ン が 押さ れ た 位置 が 線 を 引く 開始 位置 に 、 マ 
ウス の ボタ ン が 離さ れ た 位置 が 終了 位置 に な り ま す 。 線 を 引く < 開始 位置 は せ 、 すでに 
MouseDown イ ベン ト プ ロ シー ジャ で 変数 |StartX」 と [StartY」 に 格納 し て いま 
5 
終了 位置 は 、MouseUp イ ベン ト プ ロ シー ジャ の 変数 「X| と 「[Y| を 使い ます 。 


エエ 下 Bu 七 上 on = 1 mhen 
エ m ら G (8S ヒ a エ 七 又 , Sa エ 上 Y)-( 又 , YY) 
下 nd TE 


プロ グラ ム を 実行 し て くだ さい 。 フ ォ ー ム の 上 で マウ ス の 左 ボ タン を 押し 、 そ の 


G 


まま マウ ス を 別 の 場所 に 動か し て ボタ ン を 離す と 、 こ の 2 点 問 に 直線 が 引か れ ま す 。 


変数 の 官 言 を プロ シー ジャ の 外 で 行う と 、 こ の 変数 は すべ て の プロ シー ジャ か ら 
参照 可能 な 変数 (モジ ュー ルレ ベル 変数 と いい ます ) に な り ま す 。 

今回 の プロ グラ ム の よう に 、 複 数 の プロ シー ジャ で 1 つの 変数 を 共有 し た い 場 合 
は 、 フ ォ ー ム や 標準 モジ ュー ル な どの モジ ュー ル の 宣言 セク ショ ン ([「General | 
| Declarations| セク ショ ン ) に 、 変 数 を 宣言 し ます 。 

この 場合 、 変 数 の 名 前 付け 規則 (P.74 参照 ) な ど び は 、 プ ロ シ ー ジ ャ 内 の 変数 と 同 
じ 規 則 に な り ま す 。 





メソ アッ ドド に つい し と 


コン トロ ー ル や フォ ー ム な ど 、 オ プ ジ ェ クト を 操作 する た め に 実行 する 処理 の こと で す 。 プ 
ロ パ ティ が オブ ジェ クト の 外 鈴 や 動作 設定 を 行う の に 対し 、 メ ソ ッ ド は オブ ジェ クト を 直接 動 
作 き せま す 。 た と えば 、 こ の 例 で 使用 し た Line メ ソ ッ ド は 、 指 定 し た 座標 か ら 座標 へ 線 を 描き 
ます 。 Deleteltem メ ソ ッ ド は 、 コ ント ロー ル を 削除 し ます 。Move メ ソ ッ ド は 、 オ プ ブ ジ ェクト を 


指定 し た 座標 に 移動 し ます 。 メ ヌメ ソ ッ ド は 、 オ プ ジ ェ クト ご と に 用 意 き れ て お り 、 プ ロ パ ティ と 
同様 どの オプ ジェ クト に 対し て 行う の か 、 オ プ ブ ジ ェクト 名 を 指定 し ます 。 
次 の 処理 は 、 コ マン ド ボ タ ン を 指定 し た X/Y 座 標 位置 に 移動 すろ メソッド で す 。 


CommandBu ヒ Eon1 .MoOVe 又 , 





第 ど 日 4 時 限 目 イベ ント を 使 








復 迷 の プロ シー ジャ や モジ ュー ル で 変数 を 共有 する 場合 は 、 プ ロ シ ー ジ ャ 内 で は な 
く 、 必 ず 宣 言 セ クシ ョ ン で 宣言 し ます 。 

プロ グラ ム が 複雑 に な っ て くる と 、 い くつ も の プロ シー ジャ で 変数 を 共有 し て 処理 
を 組み 立て る よう に な り ま すか ら 、 変 数 の 使い 方 は 練習 し て 覚え て くだ さい 。 





る c 





練 習 問題 





OM 画す る 線 を 点線 に 変更 し て くだ さい 。 線 の 種類 の 変更 は 、 コ マン ド 
ボタ ン の Click イベ ント を 使い ます 。 線 の 種類 を 変更 する に は 、 フ ォ ー ム 
の 【DrawStyle] プロ パテ ィ を 使用 し ます 。 

プロ パテ ィ の 値 は 以下 の と お り で す 


0 実線 (中 心 線 ) [既定 値 ] 
1 一 鎖線 
ど 一 点線 
3 一 一 点 鎖 線 
ー 二 点 鎖 線 
5 一 透明 
6 一 実線 (ふい ち どり ) 


TREE 


ーー 





TFTEKEEETETTEEE で で FPPTYETEEEEETPEYSRTERETEEEETEPHEYETRETEREETPRE 





解答 は 巻末 に 一 











LeSSon1l1 MouseDown と MouseUp の 組み 合わ 





才 馬 ワン ポイ ント アド バイ ス 





コー ドウ ィ ン ド ウ は 、 ら つの 表示 方 法 を 切り 替え て 使用 で きま す 。 1 つ は 、 プ ロ シ ー 
ジャ を 1 つ 1 つ 表示 する 方 法 で す 。 も う 1 つ は 、 す べ て の プロ シー ジャ を 一 度 に 表示 
する 方 法 で す 。 

これ ら は 、 コ ー ド ウィ ンド ウ の 左下 に ある ボタ ン で 切り 替え ます 。 い くつ も の プロ シ 
ー ジ ャ を コー ドウ ィ ン ド ウ に 記述 し た と き は 、 必 要 に 応じ て 表示 を 切り 替え て 使用 する 
と 、 便 利 で す 。 






Private Sub Form_MouseDown (Button As Integer, Shi 和 ft As Intege 
I† Button = 1 Then 
| StartX = X 
StartY =Y 
End |f げ 
End Sub 















Private Sub Form_MouseDown (Button As Integer. Shi 和 ft As Integt 
|† Button = 1 Thgn 
StartX 三叉 
StartY = Y 


End 1f プロ シー ジャ ご と に 
放任: 本 生生 





点線 で 区 切ら れる 





Private Sub Form_MouseUp(Button As Integer, Shift As Integer. 
|† Button = 1 Then 
Line (StartX. StartY)-(〈. Y) 


End | 千 
End Sub 
ed 
庄 4 を グ 


障 = 


ーーーーー この ボタ ン を クリ ッ ク 


第 ど 日 4 時 限 目 イベ ント を 使 の 





Hill 


HH FEHEH 
HP 


お 紅 き プ ログ ラム の 作成 


MouseMove イベ ント の 使い 方 を 覚え ます 。 ま た 、 モ ジュ ー ル レベ ル 
変数 の 使い 方 を 復習 し ます 。 





バル 人 今回 作成 する プロ グラ ム 


』 ジン RS 








色 ボ タン を クリ ッ ク し て 


し 





が びら ドラ ウッ ジグ る 66・ 





こえ :: こ ルー ウパ 


ョ ペコ Lesson12 


月 目 第 目 コ 中 





マウ スイ ベン ト の 1 つ 「MouseMove」 イベ ント を 使っ て 、 フ ォ 
ー ム に 上 自由 線 を 描く プロ グラ ム で す 。 フォー ム 上 で ボタ ン を 押し な 
が ら マ ウス を 動か の おす と 、 マ ウス ポイ ンタ に 沿っ て 線 を 描画 し て いき 
ます 。 ま た 、5 つの カラ ー が 選択 で きる カラ ー パ レッ ト を 持ち 、 線 
の 色 を 変え て 押 画 で きま す 。 











LeSSon1 ら お 繧 描 を プロ グラ ム の 作成 


ロー ル と プロ パテ ィ の 設定 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


石 下 隅 の サイ ズ 変 更 ハ ンド ル を ドラ ッ グ し て フォ ー 
ム の サイ ズ を 広げ る 


Height:5 1 /5、 
Width:6105 





ぐら い に 設 定 す る 







| | 還 に ckcF ラ ッ ク 


ーーーーー プ ーー ーー ーー ンー ペー ご 


ーー 一 


Form] の [Caption] プロ パテ ィ の 値 を 「 お 絵描き 
プロ グラ ム 」 に 変更 する 





Form1l Fcrm 
全体 | 項目 
上 to Rasdraw 
BackColcr | | &H8UHHIUnF& 
BorderStyls CE 

だ dts お 綻 反 き ゴブ ロダ ラム 















ら ) [AutoRHedraw] プロ パティ を True] に 設定 する 
と 







| Pi 『 1 ィ ョ ロ と IL | 










| Form1l Fcrm 
全体 | 項目 史 | 
| A&utoRedraw 








BackColor EE ーー 】 ここ を クリ ッ ク 
目 BordarStvle 
に ョ ption お 縦 押さ ゴブ ロダ ラム 





[AutoRedrawj 
く ぐ フロ バテ ィ 

フォ ー ム の [AutoRedraw 
プロ パテ ィ は 、 フ ォ ー ム が 
ウィ ンド ウ の 重なり な ど で 
いっ た ん 隠れ て し まっ た の 
ち 再 度 表示 され た と き に 、 
フォ ー ム に 捕 画 され て いる 
グラ フィ ックス を 再 描画 す 
る か どう か を 設定 する プロ 
パテ ィ で す 。 


この プロ パテ ィ が 「False 」 
だ と 、 再 描画 きれ ず 画 面 
が 重なっ た 部 分 は 消さ きれ 
だ まま に な っ て し まい ま 
す 。 


ググ キー ム に グラ フイ ィ イッ タ 
ス を 捕 画す る と き は 、 必 
の デ プ ロ パ ティ ネネ 
| True」 に 設定 し て くだ さ 
い 。 


ぐ [True] の 設定 


LAutoRedraw] プロ パテ 
ィ を ダ プ ルク リッ ク し て 、 
[True] と [Falsel」 を 切 
り 替 える こと も で きま す 。 


きる 


第 ど 日 5 時 限 目 イベ ント を 使う 


ン 之 

フレ ー ム コン トロ ー ル に 
つい て は 、Lesson7 を 参照 
し で くだ さり )。 


< ぐ フレーム を 選択 
この 操作 を 行う 前 に 、 作 
肖 も た プレ ー ム コン キロ 
ー ル が 選択 され て いる こ 
と を 確認 し て くだ さい 。 


張 


ツー ル ボ ックス で [Frame] ボタ ン ! を クリ ッ ク 
し 、 フ ォ ー ム 上 で ドラ ッ グ し て フレ ー ム を 配置 する 





に ーー アパ 





プロ パテ ィ ウ ィ ン ド ウ で Caption] プロ パテ ィ の 値 
を |「Color」 に 変更 する 


ロコ 








IFrame1 Frame “ ッ 』 







_ 全体 | 項目 5 ( ここ を ダブ ルク リッ ク 
BackColor | 回 &HB ロ nnnF& | 
BorderStyls 1 - 実線 
aption Colcrl IColor」 と 入力 


ClipControl= True 
En 『 す | 


ツー ル ボ ックス の [Label] ボタ ン ' 島 ) を クリ ッ ク 
し 、 フ レー ム 上 で ドラ ッ グ し て ラベ ル を 配置 する 





に に を プ リッ ジ し と 


ぞ の まま こと こま で ドラ ッ ジ 





LeSSon1 ら お 結 描 き を プ ログ ラム の 作成 





プロ パテ ィ ウ ィ ン ドウ で [BorderStyle] プロ バテ ィ を | < _ 
クリ ッ ク し 、[ マ ] を クリ ッ ク し て [1 - 実 線 ] を 選ぶ ラベ ル を 選択 


この 操作 を 行う 前 に 、 作 
Label1 Label だ ンー と ニン 


| ニン ニシ ル が 選択 きれ て いる こと 
全体 | 項目 兄 し | に に を クリ ッ ク を 確認 し て くだ さい 。 


上 1 っ ご に ら F ョ ほ = 4 | 
BackColor 貼 &H8nnnnnnF& 
BackStyle 1 - 透明 
es に 1 - 実線 

ョ ptiorn 


D ョ t ョ F je 5 | う ご ビー な ケン リッ タク 


[BackColorl プロ パティ の 「[〒 マ ] ボタ ン を クリ ッ ク 
し 、 黄 色 (SHOOOOFFFF&S) に 変更 する 


lm 導 | こ こ を クリ ッ ク 
用 | ここ を クリ ッ ク 
工 久 | ここ を クリ ッ ク 


8 2 置 | ここ を クリ ッ ク 










[ BorderStyle] プロ パテ 
用 | ここ を クリ ッ ク ィ を ダル プク リッ ク し て 、 

[0O- な し ] と [1- 実線 ] 
を 切り 替え る こと も で き 
まま を 。 
















Label1 Labsl 
王 1 本 | 項目 唱 | 


DD ほ = ョ 「 ョ ロロ 1 - 3D | | 
凸 t っ つら に ら F ョ |== | 


BackColor 
BackSty 
BordesrS1 
aption 
D ョ t ョ F ja | 
Dat ョ For 
DatalMe ーー 
= キュ ご こ |」 




















[Caption] プロ パテ ィ を ダブ ルク リッ ク し 、Del 
キー を 押し て 値 を 削除 する 


店 U 科 肖 1 


ILabsi Labsl | ci 
全体 | 項目 串 | 








DD ら = ョ F ョ ロビ 1 - 3D 
to ご に = Fa ほ = 5 の 年 
BackStyls 1 - 本 授 B 目 

BordsrSty|a 1 - 実線 


aption | アン Del キー を 押す 
Dat ョ F je 





8 
第 ど 日 5 時 限 目 イベ ント を 使う 





目 《) Fwe 6 か ら 9 紀 を 繰り 返し て 青色 の 四角 を 作成 す 





コバ テイ ー LabaI2 


ング 青色 の コー ド ILabeI2 Labsl 4 












「&HOOFFO000&」 で す 。 全体 | 項目 別 | 
品 ignment n - 左 揃 え 
コン トロ ー ル を 刷 ロ D ら ョ ョ ロロ 1 - 3D 
ぐ コピ ー す る to ご に ら F 引 == 
較 HOnFFnnnn& 還 


1 - 大 明 





同じ 形 の コン トロ ー ル を BackStyla 
た くさ ん 作り た いと き は 、 
コン トロ ー ル を コピ ビー し 
se やう 

詳細 は P.88 の コラ 


BordsrStyle= 1 - 実線 


5 























の 参照 し て くだ さい 。 
回 回 四 コ 
Ego 
眼 同様 に し て 、 残 り の 赤 ・ 黄 緑 ・ 寺 の 3 つの ラベ ル 
を 作成 する 
外 、 市 綻 押さ ブロ ブラム 
ぐ 名 の コー ド 


赤 : &HO00000FF& 
刺 ・&HOOOOFFOO& 





LeSSon1 ら お 結 描 を プ ログ ラム の 作成 





』 ウタ ツー ル ボ ックス の [CommandButton] を 
クリ ッ ク し 、 フ ォ ー ム に コマ ンド ボタ ン を 配置 する 


EE あー に 7 が 


| ES 


4 二 重 

mm mmandi1 
om 還 

鼻 皿 き 





』 る コー ドウ ィ ン ド ウ で [Caption] プロ パテ ィ の 値 | < コマ ンド ポタ ン を 
を 「 消 去 」 に 変更 する 棋 択 


この 操作 を 行う 前 に 、 作 





En エイ 7 mmand 1 成 要 た sr あっ ド ボ タ ン が 
選択 きれ て いる こと を 確 
ICommand1 CommardBiutton > 語 し て くだ さい 。 
王 ] 李 | 項目 別 | 





ー ここ の ププ ルン ラッ ツ 
DD ら ョ コロ ご ら 1 - 3D 


BackColor | | &H8UnHnnnF& 


ョ nce| F ョ ほ = 


PT 消去 [消去 」 と 入力 
に ョ ロミ == Validation True 





第 ど 日 5 時 限 目 イベ ント を 使う 


0 
ペダ 選択 

この 操作 を 行う 前 に 、 作 
成 し た コマ ンド ボタ ン が 
選択 され て いる こと を 確 
員 し て くだ さい 。 


ュー ジー ルプ デー 
、 キッ 人 
プロ グラ ム の 中 で 、 ユ ー 
ザー と 接する 部 分 を 表す 
言葉 で す 。 ボ タン や パレ 
ッ ト 、 ダ イア ログ ポ ボック 
ス な ど を 総称 し た 呼び 方 
ae 


DD ら ョ ヨロ ご ら 


| BackColor 





』 $ プロ バテ ィ ウ ィ ン ド ウ で Caption] プロバ ティ 
の 値 を | 終了 」 に 変更 する 


]Command2 CommandButton ・ | | 
| 全休 | 項目 別 | 





ジェル) 


ここ を ダブ ルク リッ ク 
| | &HBUHUHIIF& 
F ョ |== 
終了 [終了 」 と 入力 





HG 56 わた だ ユー ザー ォ オッ ダー フェ イス 


に 電 い さ : に ピン プア 





コン トロ ー ル の コピ ー と 貼り 付け 


コン トロ ー ル を た くさ ん 作る と き に 、 ド ラッ グ で ボタ ン な ど を 作っ て 
いる と サイ ズ が 不揃い に な る こと が あり ます 。 コ ント ロー ル を 同じ 形 に 
揃え た いと き は 、 コ ント ロー ル を コピ ー す る と よい で し ょ う 。 や り 方 は 
ワー プロ な ど で 文 字 の 編集 に よく 使わ れる 「 コ ピー」 と 「 貼 り 付 け 」 の 
コン ピ ネ ーション と 同じ で す 。 

1 mm ご コピ ー す る 方 法 > 


① コ ピー し た い コ ント ロー ル を 選択 し て 
石 ク リッ ク か ら [コビー」| を 選択 。 
② 貼 り 付 けた い コ ント ロー ル 上 で 右 ク リ 
ッ ク し て [貼り 付け ] を 選択 。 

③ 配 列 に し な い の で 、 ダ イア ログ ボッ ク 
ス で [| いいえ] を クリ ッ ク す る 。 

④ 同 じ コ ント ロー ル が コピ ー さ れる 。 


LeSSon1 ら お 結 描 を プロ グラ ム の 作 








開 Project1 - Form1 (コート) 


| (GeneraD ・| | Declarations) ・| | 


Dim CCo1or As Tnteger 


旧 Form1:Command1-Click 。 














- P エ ュ で a モ も @G Sub Command1 C1icK ( ) 
Form1 .C1s 
下 nd Sub 





| |Commandz ・| Iclick <| ' 


Pr ュ ゞ ate Sub Command2 C1ick ( ) 
| End 
Endd Su も 





| 隊 Project1 - Form1 (コー ド ) 


| |Form ・| |MouseMove <| 


ーー ツーーー ツ ーー ツーー ツ ーー ツー バード ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー… 





ーー ニーーーーー ーー 


_ Private Sub Form MouseMove (Button As Tnteger, ShiFt As Tnteger, 
] 文 As Singl1e, YY As Sing1e ) 
Form1 。DrawW1dth = 3 
エエ F BuEton = 1 Then 
PSe ( 文 , YY) , OBCo1or (CCo1or ) 
正 nd エモ 
、 芯 nd Sub 


委 Form1:Label1 Label5-Click 


ILabeni ・| |Click ・| 











ーーーーーーーー 


PB ェ ュ ivate Sub Labe11 C1iok( ) 
| CColor = 14 
End Sub 





ーーーーーーーーm ツ ーーーーーーーーーーーーーーーーーーーーー ツ ーーーーー…ー… ーーー…ーーーーーーーーーーーー マ ーーーーーー こ mm ーーーーーーーーー 一 


| P ェ ivyate Sub ゎ Labe12 C1ick ( ) 
CCotor = 0 
End Sub 





2 日 5 日 イベ ント を 生き 





private Sub Labe13 C11CKk( ) 
| CCo1or = 9 
End Sub 


Priyvate Sub rabe14 C1ick() 
| CCo1or = 12 
End Sub 


_ Private Sub rabe15 C1ick() 
| CCo1or = 10 | 
End sub | 


ーー ツー ツー ンーm パ ーー ツー ツー ツー ボー ジー プー ツー ツー バー ツー ペー マー ツー マー マー 





ノ 





』 





フォ ー ム を ダ プ 示 み リ み も て 、。 コ ー ド ウィン ドウ を 開き ます コー ドウ ネッ 


ウ の 宣言 セク ショ ン 「Generall 「Declarations| を リス ト ボ ックス か ら 選 び ま す 。 


本 kt 6 こ 変 数 | CColor 」 の 宣言 を 記述 し ます 。 デー タ 型 は 整数 で す 。 


[General] を 選択 





D1m CCo1or As Tnteger 


次 に 、|Form」 の 「MouseMove」 イベ ント を リス ト ボ ックス か ら 選 び ま す 。 
プロ グラ ム の メイ ン の 処理 は 、 こ の イベ ント プロ シー ジャ に 記述 し ます 。 


| Form」 を 選択 


に らら W グ リッ クト し 、 








20623 





Dim CColor As Integer 











Private Sub Form Load() CC を ク | ッ ク 


上 | End sub 


り LEStartDrag 
Paint 












LessSon1 ら お 繧 描き を プ ログ ラム の 作 


人 MouseMove イベ ント は 、 マ ウス を 動か す と 発生 する イベ ント で す 。 ボ タン を 押 
さ な く て も マウ ス を 動か す だ け で 発生 し ます 。 
この イベ ント が 発生 する と 、MouseMove イベ ント プロ シー ジャ が 呼び 出さ きれ ま 
す 。 こ の プロ シー ジャ は 、 実 行 す る と 他 の マウ スイ ベン ト プ ロ シー ジャ と 同様 に 、 
押さ きれ た ボタ ン や キー の 種類 、 マ ウス ポイ ンタ の 座標 位置 を 変数 に 格納 し ます 。 


この プロ グラ ム は 、 フ ォ ー ム の 上 で マウ ス の 左 ボ タン を 押し な が ら 動 か す と 、 そ 
の 座標 位置 に 点 を 描画 し ます 。 連続 し て マウ ス を 動か す と 、 点 は 連続 し て 描画 され 、 
線 に な り ま す 。 

で は 、MouseMove イベ ント プロ シー ジャ を 順に 説明 し まし ょ う 。 





の みみ で ドラッジ し た と ころ に 


点 が 指 画 され て いく 





プロ シー ジャ の 最初 に 、 描 画す る 点 の 大 きき を 設 定 し ます 。 

フォ ー ム の [DrawWidth] プロ パテ ィ は 、 グ ラフ ィ ッ ク 関 係 の メソ ッ ド を 使っ て 
描画 する 線 の 太 さ を 設定 し ます ( 先 に 紹介 し た Line メソ ッ ド で 線 を 引く 場合 も 、 こ 
の [DrawWidth] プロ パテ ィ を 設定 すれ ば 線 の 太 さ を 変え て 描画 する こと が で きま 
す )。 

線 の 太 き は 、 設 定 す る 数 値 が 大 きく な れ ば 太く な り ま す 。 最小 値 は [1] で す 。 こ 
こ で は 、 や や 太い |「3| を 設定 し ます 。 


Form1 。.DrawW1idth = 3 


人 ① 火 に 、 お な じみ に な っ た IF ステ ー ト メン ト で 、 押 され た ボタ ン が 左 ボ タン の と き 
だ け 、 フ ォ ー ム に 点 を 描画 する 処理 を 記述 し ます 。 
フォ ー ム に 点 を 描画 する に は 、PSet() メ ソ ッ ド を 使い ます 。() 内 に 、 描 画す る 
X/Y 座 標 を 設定 する と 、 そ の 場所 に DrawWidth の サイ ズ の 点 を 描画 し ます 。 ま た 、 
PSet0 の あと に 「.] (カン マ ) で 区 切っ て 、 描 画す る 点 の 色 を 設定 で きま す 。 


エエ Bu そ て ton = 1 Then 
PSet ( 文 , ) , OBCo1or (CCo1or ) 


第 ら 日 5 時 限 目 イベ ント を 使 計 





の 





設定 する 場合 は 、2 と お り の 方 法 が あり ます 。1 つ は RGB 関 数 を 使う 方 法 で 
す 。 こ の 方 法 は 、 色 情報 を Red ・ Green ・ Blue の 3 つの 値 で 設定 する 方 法 で す 。 

も う 1 つ は 、QBColor 関数 を 使う 方 法 で す 。 こ の 関数 は 、 設 定 さ れ て いる 番号 で 
色 を 指定 する 方 法 で 、 あ ら か じ め 16 色 分 が 番号 付け され て いま す 。 

ここ で は 、 比 較 的 わか りや すい QBColor 関数 を 使い ます 。 


ーーーーーーーーー ボ ーーーーーーーーーーーーーーーーーーーーー… ーーーーーー 


RGB (red, qgreen, b1ue ) 














Red 値 Green 値 Blue 値 





ーーUgnt oyen 


1a……Uight Fe 
り 


19・……Uight Magents 
6 ……… YellOow 1 オー Light YellOow 


yiow White 15……… Bright White 





QBColor 関 数 の 色 番 号 に は 、 変 数 「CColor」 を 指定 し て お きま す 。 こ れ は 、 作 成 
し た ツー ル パ レ ッ ト か ら 、 ユ ー ザ ー に 選ば れ た 色 番 号 を 代入 する た めで す 。 


PSe 革 ( 文 , Y) ,。 OBCo1or (CCo1or ) 








ツ 


10 


本 


LesSoOn1 ら お 繧 描 き を プ ログ ラム の 作 


次 に 、 コ ー ド ウィ ンド ウ の リス ト ボ ックス か ら 「Labell」 「Click」 を 選び ます 。 

フレ ー ム に 組み 込ん だ ラベ ルコ ント ロー ル の Click イ ベン ト プ ロ シー ジャ に 、 こ 
の QBColor 関数 に 渡す 色 番 号 を 設定 し ます 。 た と えば 、 黄 色 に 塗り つぶ し た ラベ ル 
コン トロ ー ル |Labell」 の Cliick イ ベン ト プ ロ シー ジャ で は 、 変 数 CColor に 明る い 
黄色 (Light Yellow) の 番号 |14| を 設定 し ます (P.92 下 表 参 照 ) 。 変 数 CColor は 
モジ ュー ルレ ベル の 変数 と し て 宣言 し て あり ます の で 、MouseMove イベ ント プロ 
シー ジャ か ら こ の 変数 を 使う こと が で きま す 。 

こす し な 3 ユー ザー が と この ラバ ルコ ント ロー ル を み クリッ ク す る と 、 PSet メソ ッ ド に 
は 明る い 黄 色 が 設定 され ます 。 そ し て 、 マ ウス を ドラ ッ グ する と 黄色 い 線 が フォ ー 
ム に 搬 画 さ れ ま す 。 


pP ェ ュ ゞ ate Sub rabe11 C11cK( ) 
CColtor = 14 
正 nd Sub 


同様 に 、 残 り の ラベ ルコ ント ロー ル の Click イベ ント プロ シー ジャ で 、 そ それぞれ 
の ラベ ルコ ント ロー ル の 人 色 と 同 じ 色 番号 を 、 変 数 CColor に 代入 し ます 。 


P ェ ュ ェ ate Sub TLabe12 C1ick ( ) 
CCo1or = ミー 0 0 ……… 呈 
正 nd Sub 


P ェ ュ ゞ ae Sub TrLabe13 C1ick ( ) 
CCo1or = 9 明る い 青 
End Sub 


P ェ ュ ゞ ate Sub TLabe14 C1ick ( ) 
CCo1or = ニー 12 0 ………… 明る い 赤 
End Sub 


P ェ ュ vate Sub rabe15 C1iock ( ) 
Le き ) 自認 2YYASX て 黄 緑 
正 nd Sub 


今度 は 、 描 画 し た 線 を 一 括 消去 する 処理 を 作成 し ます 。 コ ー ド ウィ ンド ウ で 、 フ 
ォ ー ム の [消去] ボタ ン (Command1) の Click イベント プ ロ シ ー ジ ャ を 開き ます 。 
そし て 、 次 の 一 行 を 記述 し ます 。 


Form1 .C1g 


Cls メ ソ ッ ド は 、 実行 時 に 作成 し た グラ フィ ックス を フォ ー ム か ら 消 去 す る メソ 
ッ ド で す 。 こ の ボタ ン を 押す こと で 、 フ ォ ー ム に 描画 し た 線 を 消す こと が で きま す 。 





第 日 5 時 限 目 イベ ント を 使 し 





旧 もう 1 つ の コマ ンド ボタ ン [終了 ] (Command2) の Click イ ベン ト プ ロ シー ジャ 
に 、 プ ログ ラム の 終了 処理 を 記述 し ます 。 


P ェ ュ ゞ ate Sub Command2 C1ick ( ) 
EnQ 
End Sub 


プロ グラ ム を 実行 し て くだ さい 。 マ ウス の 左 ボ タン を 押し な が ら 動 か す と 、 フ ォ 
ー ム に 線 が 描画 され ま す 。 ツ ー ル パレ ッ ト の 好き な 色 を クリ ッ ク す る と 、 今度 は そ 
の 色 で 線 が 描画 きれ ま す 。 

[消去 |」 ボタ ン を 押せ ば 、 何 度 で も 描画 する こと が で きま す 。 [終了 ] ボタ ン を 押 
す と プロ グラ ム は 終了 し ます 。 

【ClS メソ ッ ド の 書式 】 

ob]Ject .C1s 


obj ec プロ グラ ム の 実行 時 に 作成 し た グラ フィ ックス また は テキ スト を クリ 
ア す る オブ ジェ クト を 指定 し ます 。 省 略し た 時 は gorkm オブ ジェ クト 
が 指定 され ます 。 


【QBColor 関数 の 書式 】 


OBCo1or ( co1or ) 


Co1or 0 一 15 の 男 囲 の 整数 (rong 型 ) を 指定 し ます (ps.92 の 表 参 照 )。 


MouseDown、MouseUp、MouseMove と いう 3 つの マウ スイ ベン ト を 勉強 し 


まし た 。 グ ラフ ィ ッ クス を 描画 する メソ ッ ド と 組み 合わ せる と 、 面 白い プロ グラ ム が 
作成 で きま す 。 

また 、 イ メー ジコ ント ロー ル と 組み 合わ せ て Click イベ ント を 使う と 、 ゲ ー ム プロ 
グラ ム な ご ど が 作成 で きま す 。 











LeSSon1 ら お 繧 描 キ を プロ グラ ム の 作 





る c》 練習 問題 


いひ 





カラ ー バ レット に 、| 水 色 (Light Cyan)」 を 追加 し 、 線 の 太 さ を 「7」 
に 設定 し て くだ さい 。 





追加 ご れ た カラ ー パ レッ ト 





ひ プロ グラ ム に 、 消 し ゴム を 追加 し て くだ さい 。 


ビン ト 】 
① 所 画 し た 線 を 消去 する に は 、 フ ォ ー ム の 背景 色 と 同 じ 色 で 線 を な ぞ 
っ て いけ ば 、 消 去 し た こと と 同じ こと に な り ま す (ここ で は 「 フ 7 
(White)」 を 使っ て いま す )。 





⑧②⑨ 消 し ゴム は 、 イ メー ジコ ント ロー ル に 消し ゴム の アイ コン 
[Erase0 1 .ico」 (付属 CD-ROM の 「QSA」 フォ ル ダ に 収録 ) を 組 
み 込 ん で 、 こ れ を クリ ッ ク す る よう に し て くだ さい 。 





解答 は 巻末 に 一 





6 日 5 日 イベ ント を 生ま 





者 馬 ワン ポイ ント アド バイ ス 





フレ ー ム コン トロ ー ル は 、「 コ ン テ ナ 」 コ ント ロー ル と も 呼ば れ て いま す 。 こ れ は 、 
フレ ー ム の 上 に ラベ ル や イメ ー ジ コン トロール を 配置 する と 、 フ レー ム と 一 体 に な っ て 
管理 する こと が で きる か ら で す 。 フ レー ム に コン トロ ー ル を 配置 する 場合 は 、 直 接 フ レ 
ー ム に 置い て くだ さい 。 一度 フォ ー ム に 配置 し た コン トロ ー ル を フレ ー ム の 上 に 乗せ て 
も 、 フ ォ ー ム の トト に 配置 され て し まい 、 う まく 表示 され な く な っ て し まい ます 。 こ の コ 
ント ロー ル を フレ ー ム に 乗せ た いと き は いっ た ん [切り 取り ] を 実行 し 、 フレ ー ム を ク 
リッ ク し て 選択 状態 に し て か ら 貼 り 付 け を 実行 する と 、 フ レー ム 内 に 貼り 付け る こと が 
で きま す 。 





フォ ー ム か ら 移 動 し て も 
フレ ー ム に 入ら な い 


ト ゴ ピ pn 


コメ ント を つけ る 


コー ド の 働き や 機能 を 説明 する と き は 、 ソ ー ス コー ド の 中 に コメ ント (説明 ) を つけ る こと 
が で きま す 。 コ メン ト を つけ る に は コメ ント 記号 介 (シン グル ク ォ テ ーション )」 を コメ ント 文 
の 先頭 に つけ ます 。 コメ ント 記号 か ら そ の 行末 まで の 文 は 、 実 行 時 に は 処理 され ませ ん 。 コメ 
ント は 日 本 語 で も 英語 で も か まい ませ ん 。 


コメ ント 行 は コー ドウ ィ ン ド ウ で は 緑色 に 表示 され て いま す 。 他人 に ソー スコ ー ド を 配布 す 
る と き な ど は 、 コ メン ト を つけ て お く と コー ド が 読み や すく な る で し ょ う 。 


* コ メン ト は 日 本 語 で も 入力 で きま す 。 
CCo1or = 0 ' 番 号 0 は 黒 の 指定 で す 。 
'CCo1or =12 この 行 の コー ド は 実行 され ませ ん 。 














これ まで の レッ スン で 、 だ い 点 見 栄え の する プロ グラ ム が 作れ る よう に な り ま し た 。 

て こ で 、 第 日 の レッ スン で は 、 フ ォ ー ム に メニ ュー を 組み 込ん で 、 さ ら に アプ 

リケーション らし く 仕 上 げ る テク ニッ ク を 身 に 付け ます 。 

WindowsS の アプ リケーション で は 、 ほ と ん ど が メニ ュー を 持っ て いま す 。 

メニ ュー を 使う つと 、 プ ログ ラム の 機能 を 整理 し て 割り 当て て お く こ と が で きま す の 

で 、 ユ ー ザ ー に わか りや すい イン ター フェ イス を 作成 で きま す 。 

メニ ュー コン トロ ー ル は 、 他 の コン トロ ー ル と 少し 違っ た 使い 方 を し ます の で 、 こ 

の 章 で メニ ュー コン トロ ー ル の 操作 方 法 を 習得 し て くだ さい 。 

ラ 日 の レッ スン で 解説 する 項目 

ココ フォ ー ム に メニ ュー を 組み 込む 方法 

ココ メニュー 用 の イベ ント プロ シー ジャ を 使っ て 、 ユ ー ザ ー が メニ ュー な 選択 し た 
と き に 処理 を 実行 する 方 法 

ココ ポ ボ ポップアップ メニ ュー の 作成 方 法 

ココ メニュー コン トロ ー ル を 追加 する テク ニッ ク 

追加 ご れ た メニ ュー 項目 が 選択 され た 場合 の 処理 方 法 

ココ メニュー か ら メ ニュ ー コ ント ロー ル を 削除 する 方 法 

コメ ニュ ー コ ント ロール の [Visible] プロ バ パティ を 使う 方 法 








ジ 

UI 
還 
LT I 


ル ん どら S$ ゞ の OZ22 


RT: Lesson13.vhp 
⑨) VB6CD 


ココ Lesson13 


う Learning Edition 








メニ ュー を 組み 込む 


フォ ー ム に メニ ュー を 組み 込む 方 法 を 弟 得 し ます 。 ま た 、 ユ ー ザ ー が メ 
ニュ ー を 選択 し た と き に 処理 を 実行 する 方 法 を 覚え ます 。 


し し ラ 回 作成 する プロ グラ ム 


認証 5 [ファイル] ニュ ー の 【 新 
ーー = 規 作 成 】 を クリ ッ ク す る こと … 





ファ イィ ル 





ゴー 





(IM 


メニ ュー エディ タ を 使っ て 、Lesson12 の 練習 問題 Q2 で 作成 し 
た お 絵 描 き プ ログ ラム (QSAA- 152.vDp) に メニ ュー を 加え ます 。 

ら ど つの コマ ンド ボタ ン で 、 別 々 に 処理 を し て いた 「 消 去 ] と | 終 
了 」 の 処理 を 、] つの メニ ュー か ら 実 行 で きる よう に し ます 。 













LesSSOn13 メニ ュー を 組み 込む 


泊 コン トロ ー ル と プロ パテ ィ の 設定 








1 | QA- 125 ら .vDbp」 を 開く < ぐ GAL1 22.vbp 

|Q&A-122.vbp」 ファ イル 
の 本 は 、 付 録 CD-ROM の 
| 「Q&Al」 フォ ル ダ に 収録 き 
れ て いま す 。 





中 目 「 





[標準 ] ツー ル バ ー の [メニ ュー エディ タ ] ボタ ン を ー を 3 
リッ ク す る [ツー ル ] メニ ュー か ら 
[メニ ュー エディ タ ] を 選 
ここ 5 


ykO アド 人 @ ウ o ト ツ A 


2 ァイル (FE) 編集 (E) 表示 フロ ゲ ェ 2 ト P) 書式 (QO) デ jpPYD) ミ 
| ョ ・ 習 * 1 この ホ タ ン を [回 4 是 
"いい" 上申 | 5 還 EB 症 本 量 和 フ ケツ ャ 性 @- 
時 「 ーー ま し RSE 22 ニニ ニン ーー ご フ ジ ノ ュ 
議 ' ーー [=3 ml 6 md J | 









に 

















1 リ GT rrFE 





4 ショッ 0) . 


[キャ プション ] に 「 フ ァイル 」、[ 名 前 ] に | 人 コン トロ ー ル を 
IIDMFile] を 入力 し 、[ 次 へ ] を クリ ッ ク す る [名 前 ] ボッ クス に 入力 し 


た |IIDMEFile」 を 、 コ ント 
ー ル 名 と 呼び ます 。 コ 


mm ロ 
トー 「 か で メニュ テー コン トロ 
| プス PA cm | ファ イル 」| を 入力 ー ル を 参照 する と き に 使 
還 還 Do 。。。 tk | 2 5 


う 名 前 で す 。 












イプ eo xtS [GOD っ 別 

^L2 セテ キメ ト 番 号 H) ィ * ゴ エー ト 位置 > |n- な し ー 8 

Male IIDMFile」 を 入力 誠 3 
っ キャ プシ ョ ン 


se ルー ラー タオ キル 


[次 へ ] を クリ ッ ク また は メニ ュー 項目 名 を 
た まな と 。 その メニ ュ 


ー コ ント ロー ル が メニ ュ 
ー コ ント ロー ルリ スト ボ 
ックス に 追加 され ます 。 








第 さ 日 1 時 限 目 メニ ュー を 使う 


矢印 ボタ ン の 
ぐ 使い 方 


ト 下 左右 の 矢印 ボタ ン は 
メニ ュー 項目 を 移動 させ 
る の に 使用 し ます 。 項目 
を 選ん で 移動 させ た い 向 
き の 矢 印 ボ タン を クリ ッ 
ク も し ます 。 


セパ レー タ 
グ (区 切り 線 ) 


メニ ュー の 項目 を 似 た よ 
うな カテ ゴリ で 多分 する 
こと で メニ ュー を 見 や す 
と し まま 。 [キャ プシ ョ ン ] 
ボッ クス に |-| (半角 ハイ 
フン ) を 入力 し て 設定 し 
ます 。 


00 


し ュー エディ 


名 前 MD IDMNew 





和 石 矢 印 ホ タン を クリ ッ ク し て 名 前 の 配置 を 右 に ずら す 


ここ を ンジ リッ ツク 





2Z 唄 に スペ ー ス が 
拓 人 人 され る 





[キャ プシ ョ ン ] に | 新規 作成 ]、[ 名 前 ] に 
IIDMNew」 を 入力 し 、[ 次 へ ]」 を クリ ッ ク す る 








キ t フ ジョ P) 













キャ ヤル | 
イン テウ 2: シー トット ⑤) [ない <| 
A え フ "エキ スト 番 号 ( 0 ネ ゴ シ エ ー ト 位置 〇 lo - な し <| 





「 五 の G) レ 


-* | | 次 へ | 挿入 D | 前 DI 





[キャ プシ ョ ン ] に 「-」、[ 名 前 ] に 「separator」 を 
入力 し 、[ 次 へ 」 を クリ ッ ク す る 





EZ E 


| sw F コー ーー ト 町 | -」 を 入力 
| 


















キャ ソン セル | 

イデ カウ z69 aー-NMy ト GS* [な い =| 

^ ル 7 エ テ キ メト 番号 0 ィ ゴ ッ エ ー ト 位置 〇 ) ] 
「 な の 〇 C) レ 有効 E) レ 表示 ) 1 ウン トウ リス RW 「SeDaratOr」 を 入力 


デイ ーー ーーー ーー 


| | 新規 作成 






[次 へ ] を クリ ッ ク 


LesSOn13 メニ ュー を 組み 込む 





[キャ プション] に 「 終 了 ]、[ 名 前 ] に 「IDMExit」 
を 信 力 し 、[OK] を クリ ッ ク す る 


は 7 "= ド "ニョ ーーーーーーーーー ーー 一 9 1 [終了 | を 入力 

名 前 MD lpMExt 。 。 ッ ャ 

イケ 9XCO. シー トド DNS) (な い マ 

^ ル 2 コテ キス ト 番 号 (H tk 信 時 人 > nh- 汰 。 アン IIDMExit」 を 入力 
葉 久 [OK] を クリ ッ ク 






「 な の @ じ 有効 ⑥ レ 表示 ) ウト ウツ 9 相 
半 、 近 AO | 本 
ファ イリ ルレ 

"新規 作成 


JJ )、 1 











実行 前 は コー ド 
ヽ ジ ウィ ンド ウ が 開く 
プロ グラ ム を 実行 する 前 
な こす 呈 に メニ ュー を 選択 する と 、 
ル そこ に 対応 し た プロ シー 
ジャ の コー ドウ ィ ン ド ウ 
が 開き ます 。 





階層 メニ ュー を 作成 する に は 


メニ ュー エディ タ で 階層 メニ ュー を 作成 する 場合 は 、 矢 印 ボ タン を 使っ 
て 有 有 に ずら し て いき ます 。 通常 、 メ ニュ ー は 縦 に 並ん で 表示 きれ ます が 、 
授 下 の 階層 を 設定 する 場合 は 、 1 つ 右 に ずら し た メニ ュー 項目 を 作成 し 
ます 。 ま た 、 メ ニュ ー に 区 切り 線 を 挿入 する 場合 は 、 必 ず [キャ プシ ョ ン ] 
ボッ クス に 「-」 (半角 の ハイ フン ) を 入力 し ます 。 


ニラ シー ディ オタ 人 で ば に 
94 0 一 一 が … 


lm. お 綻 舞 ば プ ロジ ラム 
ファ イル 編集 話 汚 』 


実際 に は 1 つ 下 の 
階層 メニ ュー に な る 





JI 


第 日 1 時 限 目 メニ ュー を 使う 











_ Private Sub TDMNYew_C1iok( ) 
| Form1 .C1s 
End Sub 








すでに 、 プ ログ ラム その も の の コー ド は Lesson12 で 作成 し て あり ます の で 、 追加 
し た メニ ュー の コー ド だ け を 解説 し ます 。 





ユー ザー が メニ ュー を 選択 する と 、 そ の メニ ュー の Click イベ ント が 発生 し ます 。 
メニ ュー エディ タ で コン トロ ー ル 名 (名 前 ) を 設定 し まし た が 、 こ の 名 前 と Click 
イベ ント が 組み 合わ きれ て 、 イ ベン ト プ ロ シー ジャ に な り ま す 。 

た と えば 、 ユ ー ザ ー が [新規 作成 ] メニ ュー を 選ぶ と 、[「IDMNew_Click()」 と い 
う イ ベン ト プ ロ シー ジャ が 発生 し ます 。 





あと は 、 コ マン ド ボ タ ン に 設定 し た 処理 と まっ た く 同 じ 物 を 記述 すれ ば いい だ け 
で す 。 | 新規 作成 ] メニ ュー に は 、1†1 消 才 † タン で 作成 し な 。 フ ォ ー ム の ゲラ タフ ブ ォ 
ッ ク を 消す Cls メ ソ ッ ド を 、[ 終 了 ] メニ ュー に は プロ グラ ム の 終了 の た め の PEnd ス 
デー トメ ント を 本 し ます 。 


プロ グラ ム を 実行 し ます 。 線 を 描画 し て メニ ュー か ら [新規 作成 ] を 選び ます 。 
[消去 |] ボタン を 押し た と き と 同 じ 処 理 が 実行 され ます 。 [終了 ] メニ ュー を 選ぶ と 
プロ グラ ム が 終了 し ます 。 

















LeSSOn13 メニ ュー を 組み 込 





プ ォ ー ム に メニ ュー を 組み 込む 場合 は 、 必 ず メ ニュ ー エ ディ タ を 使用 し ます 。 

また 、 こ れ ま で 、 フ ォ ー ム に ラベ ル や イメ ー ジ コン トロ ー ル を 配置 する と 、 自 動 的 
に コン トロ ー ル 名 が 付加 され て いま し た (Image 1 や Label] な ど )。 し か し 、 メ ニュ 
ー コ ント ロー ル に つい て は 、 組み 込ん だ メニ ュー 項目 に 、 自 分 で 1 つ 1 つ コ ン トロ ー 
ル 名 (名 前 ) を 付け な けれ ば な り ま せん 。 名 前 は 変数 の よう に 自由 に 設定 で きま す 。 

な お 、 メ ニュ ー コ ント ロー ル は 、Click イベ ント し か 発生 し ませ ん 。 他 の イベ ント は 
あり ませ ん 。 


る c》 練習 問題 


上 「Lesson13.vbp」 に 、 次 の 画面 の メニ ュー を 追加 し て くだ さい 。 メ ニ 
ュー 項目 だ け 組 み 込 み 、 処 理 は 記述 する 必要 は あり ませ ん 。 


お 綻 地 さ プロ ラム 


ど 段階 深い 階層 の メニ ュー を 作成 する 場合 は 、 右 矢印 ボタ ン を ら 回 押 
し ます 。 

また 、 区 切り 線 を 複数 挿入 する 場合 は 、 コ ント ロー ル 名 が 同じ に な ら 
な いよ うに し て くだ さい 。 そ の 場合 は 、 コ ント ロー ル 名 に 「separator] 」 
「separator の ] な ど と 番号 を 振る と いい で し ょ う 。 


解答 は 巻末 に 一 








幸 参 ワン ポイ ント アド バイ ス 


一 度 作成 し た メニ ュー を 修正 する 場合 は 、 メ ニュ ー を 組み 込ん だ フォ ー ム を 表示 し て 、 
再度 ViSual Basic の ツー ル バ ー に ある [メニ ュー エディ タ ] ボタ ン を 押し ます 。 

組み 込ん だ メニ ュー 項目 を 削除 し た い 場 合 は 、 メ ニュ ー エ ディ タ で その メニ ュー 項目 
を 選択 し て [削除 ] ボタ ン を 押し ます 。 


第 日 1 時 限 目 メニ ュー を 使 ・ 


石 ボ タン ポ ッ プア ッ プ メニ ュー を 作る 


ポッ プア ッ プ メニ ュー の 作成 方 法 を 習得 し ます 。 マ ウス を クリ ッ ク し た 
と きだ け 表 示す る よう に し て み ま し ょ う 。 





ラ 回 作成 する プロ グラ ム 


フォ ー ム 上 で 右 グ リッ クタ 
する と ポッ プア ッ プ 
メニ ュー が 表示 され る 


メニ ュー を クリ ッ ク 
する と … 


第 日 
ら 時 限 目 





ーー 





ファ イ 有 政 


ビー 
時 

を Lesson14.Vhp 陸 絵 が 消去 され 、 新 し い 

@ veecO 了 還 給 が 描け る よう に な る 
ョ Lesson14 
へ 





WindowS で は お な じみ の 、 マ ウス の 右 ボ タン で ポ ボ ポップアップ する 
Oc 
PODuDMenu メソ ッ ド を 使い ます 。 た だ し 、 実 際 に 表示 され る メニ 
ュー は 、 あ ら か じ め メ ニュ ー エ ディ タ を 使っ て 作成 する か 、Load ス 
テー トメ ント て で 実行 時 に メニ ュー 項目 を 追加 する 必要 が あり ます 。 

ここ で は 、 あ ら か じ め 作 成 し て め ある メニ ュー を 使っ て 、 そ れ を ポ 
ッ プ アッ プ メ ニュ ー に し ます 。 


0 人 


Lesson14 右 ボ タン ポッ プア ッ プ メニ ュー を 作る 


に 一 全 と プロ 月 チ ィ の だ 





※ こ こ で は 、 付 録 CD-ROM の 「Lesson13」 フォ ル ダ に 収録 され て 
いる 「Lesson13.vbp] ファ イル を 使用 する の で 、 特 に 設定 する 必 
要 は あり ませ ん 。 





引 FOrm1:F0rm-IMOuseD0wn 





\ Projectl - Formi1 (コー ト ) | 


や エ ュ で a も モ @G SuD FoO ェ m MOuSGDOwri ( Bu 上 上 On AS エロ GOGr, Sh ユ 1fF 上 AS Tntege エ , _ | 
' 公 As Sing1e, Y As Sing1e ) 








エエ Bu 七 上 on = 2 Then 
TDMEx ュ ユ 七 . び エ is1b1e = Fa1se 
8 ら G ら Da エ a ヒ の エエ . び 1s1ib1e = Fa1se 
PopupMenu TDMF ュ 1e, ゞ bPopupMenuR1dhEBu ヒ 上 の nm 
TDMEx ュ 上 。 び エミ 5 ュ 1 わ 1G = エエ uG 
SGDa エ a ヒ の エエ . び エミ 5S1b1e = エエ uG 
| End エモ E 
End Sub 





すでに 、 プ ログ ラム その も の の コー ド は Lesson13 で 作成 し て あり ます の で 、 追 加 
する ポッ プア ッ プ メニ ュー の コー ド だ け を 解説 し ます 。 


凡 。 ポッ プア ッ プ メニ ュー は 、 ユ ー ザ ー が フォ ー ム の 上 で マウ ス の 右 ボ タン を 押し て 
いる 間 中 表示 され ます 。 で すか ら 、 こ の 処理 は フォ ー ム の MouseDown イベ ント プ 
ロ シ ー ジ ャ に 記述 し ます 。 


ク 





メニ ュー の ポッ プア ッ プ 表示 は 、PopupMenu メ ソ ッ ド が 行い ます 。 メ ソ ッ ド 名 
の 後に メニ ュー コン トロ ー ル 名 を 記述 する と 、 そ の メニ ュー を ポッ プア ッ プ 表示 し 
ます 。 

メソ ッ ド の 引数 に メニ ュー の 表示 位置 や 、 メ ニュ ー を 選択 する マウ ス の ボタ ン を 
設定 で きま す 。 





第 日 ら 時限 上 日 メニ ュー を 使 に 





の [ ES 人 0 2 は 6 2 ーー 


Ob]@c . PopupMenu menuCon モ ェ o1, FE1ags, xx, Y, bo1qdcommand 


ob ec 省略 可能 。 メ ニュ ー を 組み 込ん で ある オブ ジェ クト で す 。 っ object を 
省略 する と 、 フ ォ ー カ ス を 持つ gorxm オブ ジェ クト が 指定 され ます 。 

menuCOn モ ヒエ o ユ 1 ポッ プア ッ プ させ る メニ ュー 項目 の コン トロ ー ル 名 を 記述 し ます 。 指 
定 さ れ た メニ ュー は 、 最 低 1 つの サブ メニ ュー を 持っ て いる 必要 が あ 


り ま す 。 

Flags 省略 可能 。 ポップアップ す る メニ ュー の 位置 と 動作 を 指定 する 値 ( 定 
数 ) を 指定 し ます 。 

省略 可能 。 メ ニュ ー を 表示 する 位置 の x 座標 を 指定 し ます 。 省 略す る 
と 、 マ ウス の 座標 が 指定 され ます 。 

Y 首 略 可能 。 メニュー を 表示 する 位置 の y 座 標 を 指定 し ます 。 省 略す る 


と 、 マ ウス の 座標 が 指定 され ます 。 
bo1qcommand 省略 可能 。 ポ ッ プ アッ プ メ ニュ ー の うち 太字 で 表示 され る メニ ュー 名 
を 指定 し ます 。 


く Flags に 設定 する 値 > 










定数 (位置 ) 旧 


内 容 
VbPopupMenuLeftAlign 0 (既定 値 ) | ショ ー ト カッ トメ ニュ ー の 左端 が x に 
配置 され ます 。 
vbPopupMenuCenterAlign | 4 ショ ー ト カッ トメ ニュ ー の 中 央 が x に 
配置 され ます 。 
VDPopupMenuRightAlign 上 ショ ー ト カッ トメ ニュ ー の 右端 が x に 


配置 され ます 。 


VDPopupMenuLeftButton | 0 (既定 値 ) | ショ ー ト カッ トメ ニュ ー の 項目 は 、 マ 
ウス の 左 ボ タン を クリ ッ ク し た と き に 
の み 反 応 し ます 。 

VDPopupMenuRightButton ショ ー ト カッ トメ ニュ ー の 項目 は 、 マ 


ウス の 左 ま た は 右 の ボタ ン を クリ ッ ク 
し た と き に 反応 し ます 。 
人 この プロ グラ ム で は 、 マ ウス の 右 ボ タン を 押し た と き に メニ ュー を 表示 し ます の 
で 、 ス テー トメ ント を 使っ て 、 右 ボタ ン が 押さ きれ た と きのみ 処理 を 実行 し ます 。 
すでに 作成 し て ある [ファ イル ] メニ ュー を ポッ プア ッ プ させ ます か ら 、 こ の メ 
ニュ ー 項 目 の コ ント ロー ル 名 (名 前 ) [IDMEFile」] を PopupMenu メ ソ ッ ド の 第 一 引 
数 と し て 記述 し ます 。 
また 、 メ ソ ッ ド の 第 二 引 数 に 、 定 数 「vbPopupMenuRightButton| を 指定 し ます 。 


























Lesson14 右 ボ タン ポッ プア ッ プ メニ ュー を 作 


この 定数 を セッ ト す る と 、 表 示さ きれ た メニ ュー は マウ ス の 左 ボ タン で も 右 ボ タン 
で も 選択 で きる よう に な り ま す 。 


エエ Bu 上 上 on = 2 Then 
PopupMenu TDMF ュ 1e, ゞ bPopupMenuR1 す h 上 Bu ヒモ 上 の On 
nd エエ 


用 階層 メニ ュー の 場合 は 、 上 の 階層 の メニ ュー 名 を PopupMenu メ ソ ッ ド に 記述 す 
る と 、 そ の 下層 の メニ ュー 項目 も いっ し ょ に 表示 され ます 。 
この プロ グラム 閥 は 、 1 ファ イル | メニ ュー を ポッ プア ッ プ メニ ュー に 指 征 じ で い ぃ 
ます か ら 、 そ の トト の [新規 作成 」 [終了 ] も 自動 的 に 表示 され ます 。 





下層 メニ ュー を 表示 し た く な い 場 合 は 、PopupMenu を 実行 する 前 に 、 そ の メニ 
ュー コン トロ ー ル の [Visible] プロ パテ ィ を False に 設定 し て お きま す 。 必ず 
PopupMenu メ ソ ッ ド を 実行 する 前 に 設定 し て くだ さい 。 メ ニュ ー が ポ ボ ポップアップ 
され て か ら で は 、 表 示 を 取り 消せ ませ ん 。 こ の プロ シー ジャ で は 、| フ ァイル | メニ 
ュー の 区 切り 線 と [終了 ] を 非 表 示 に し て 、| 新規 作成 |] の み を 表示 させ て いま す 。 


TDME3sxi も 。Vigsib1e = Fa1se・**<<<ceceeesee [終了 ] メニ ュー 非 表示 
8@ ら pa エ a も or .Visib1e = Fa1lse・<<<<ccceees[ 区 切り 線 ] 非 表示 
PopupMenu TDMF11e, vbPopupMenuRightButtons**s メ ニュ 一 表示 


人 ⑳ し か し 、 一 度 サ プ メ ニュ ー を 非 表 示 に し て し まう と 、 フ ォ ー ム に 組み 込ん だ メニ 
ュー の 区 切り 線 と 「 終 了 ] メニ ュー も 、 非 表示 に な っ た まま に な っ て し まい ます 。 
これ で は 。、 プ ログ ラム の 終了 が メニ ュー か ら 実 行 で き な く な っ て し まい ます の で 、 
PopupMenu メ ソ ッ ド を 実行 し た 直後 に に 、 こ れ ら の プロ パテ ィ に 「True」 を 設定 し 、 
表示 状態 に 戻す 処理 を 作成 し て お く 必 要 が あり ます 。 


TDMEx ュ 七 。 び エモ S1D わ 16G = エエ uG 
8G ら Da と エ a 七 の エ . ぴ エ S1Db1@G = T エ u@G 


/ ポッ プア ッ プ メニ ュー は 、 設 定 し て ある メニ ュー を 呼び 出す だ け で すか ら 、 す で 
に メニ ュー コン トロ ー ル に 設定 し て ある Click イ ベン ト プ ロ シー ジャ は 、 通 常 の メ 
ニュ ー と 同様 に 呼び 出さ れ 実 行き れ ま す 。 


人 。 以上 で 完成 で す 。 プ ログ ラム を 実行 し て くだ さい 。 フ ォ ー ム に ポッ プア ッ プ され 
る メニ ュー は 、| 新規 作成 ] の み で す 。 





第 3 日 時 限 目 メニ ュー を 使 


OO 


ポッ プア ッ プ メニ ュー は 、 操 作 の 手元 に メニ ュー を 表示 で きる 、 と いう 利点 が あり 


ます 。 こ の 利点 を 上 手 に 活用 し 、 ユ ー ザ ー の 操作 し や すい イン ター フェ イス を 作成 す 
9 よ つ に し まし ょ う 。 


> 


W Lesson13 の 練習 問題 の プロ グラ ム (Q&A-13.vbp) で 組み 込ん だ 
[編集 ] メニ ュー を 、 ポ ボッ プア ッ プ メニ ュー に し て くだ さい 。 


「 編 集 」 メニ ュー の コン トロ ー ル 名 を 、PopupMenu メソ ッ ド に 指定 し 
ます 。 


解答 は 巻末 に 一 


ポッ プア ッ プ メニ ュー の 表示 は 、 な る べく マウ ス の 右 ボ タン に 割り 当て て くだ さい 。 
左 タ ン に 割り 当て る と 、 他 の 操作 の た びに メニ ュー が 表示 され て し まい ます 。 

また 、Windows 本 来 の 右 ク リッ ク で 表示 され る ポッ プア ッ プ メニ ュー の 動作 は 
MouseUpD イベ ント 時 に 発生 し て いる よう で す 。 例え ば 、 デ スク トッ プ を 右 ク リッ ク 
し て みて 下さ い 。 マ ウス の ボタ ン を 押し て いる 間 は メニ ュー は 表示 され ませ ん 。 ボ タン 
を 離し た と き に メニ ュー が 表示 され て いま す 。 プ ログ ラム に 不都合 が 出 な けれ ば 、 
MouseUD イベ バン ト に ポッ プア ッ プ メニ ュー の 動作 を 記述 し て も よい で し ょ よう 。 


アク ティ ブ デス カト ッ プ @ ぬ ) 。 b 


ァ イ ゴ ン の 整列 ① 
寺 間 隔 に 整列 軸 ) 


ES 新 中 0 寺 を 還 写 Fs っ RA 


プロ パテ ィ (R) 


石 ポ タン を 押し て いる 間 は 石 ボ タン を 離す と メニ ュー 
メニ ュー は 表示 され な い が 表示 され る 
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Lesson14 右 ボ タン ポッ プア ッ プ メニ ュー を 作 





Enabled (有効 ) プロ パテ ィ と Visible (表示 ) プロ パテ ィ の 違い 


Enabled プロ パテ ィ と Visible プロ パテ ィ の 人 違 い を こ 

まず 、PEnabled プロ パテ ィ は 、 そ の フォ ー ム や コン トロ ー 
発生 し た イベ ント を 受け 付け る か どう か を 設定 する プロ パテ ィ で す 。 これ が 偽 (False) に な っ 
て いる と 、 そ の オプ ジェ クト の イベ ント プロ シー ジャ は 実行 きれ ませ ん 。 つ まり 、 オ プ ジ ェ ク 
ト は ユー ザー に と っ て 完全 に 使用 不可 能 な 状態 に な っ て いま す 。 

ーー 方 、Visible プロ パテ ィ は 、 た だ 単 呈 フォ ー ム や コン トロ ー ル を 見 と な くし て いる だ け で す 。 
つま り 、 内 部 的 に は 使用 可能 な の で 、 イ ベン ト を 受け 付け る 状態 に あり ます 。 こ の レッ スン で 
は メニ ュー の 表示 、 非 表示 を 処理 し て ポッ プア ッ プ メニ ュー を 実現 し て いま し た が 、 方 法 に よ 
っ て は 、 了 し メニ ュ で 多才 意 し 、 ぞ それ を 表示 まる こと で 、 


可能 で す 。 




















「 メ 
| ha 断 規 作 成 。 {トト {)〔w…〔 OR | 
| 名 前 MO  [DMNew yk | 


| イヤ デ ウ z09 | =KSIIGO 選 
| ^ ル "エラ テキ メト 番号 エー ト 位置 0。 In- な し < 
| 「 お の ⑥) 「 有効 D P 表示 の | 「 2 ウト 


- 引 =| *| | し 本 」 Ao | mmol 


メ 
0 





7SayP* 断 正 作 成 


「 名 前 IIDMNew キャ ツ セ ル | 
] タデ x69 1 シー ト My ト ⑤: [な い ) <| 


へ 2* 905 っ 和 江 - ト 位 寺 O:。 np- な し <| 
記 。 のみ 92 ト 2 リス ト W) 








Enabled プロ パテ ィ を True 
VisiDle プロ パティ を False の と き 


こ で 整理 し て お きま し ょ う 。 


ル (メニ ュー や ボタ 2 に 対し も て 


ポッ プア ッ プ メニ ュー を 行う こと も 


世 に s お 絵描き プロ と ラフ 


アイ ル 


ト - ま r に す 
新規 作成 













メニ ュー が グレ ー 表 示 に な 
り イ ベン ト も 受け 付け な い 








ーーー ニー ニーーーーーーーーー ニ ーー 


メニ ュー が 表示 され な い 
が イベ ント は 受け 付け る 





吉 さ 日 時限 目 メニ ュー を 使 e 


メニ ュー を 追加 する 


メニ ュー コン トロ ー ル を 追加 する テク ニッ ク を 学び ます 。 ま た 、 追 加 さ ご 
れ た メニ ュー 項目 が 選択 され た 場合 の 処理 方 法 を 理解 し ます 。 





ラ 回 作成 する プロ グラ ム 





ファ イル 


追加 】 ボタ ン を 


クリ ッ ク す る と … 
第 日 
3 時 限 目 
メニ ュー が 追加 
され る 





メニ ュー を クリ ッ タ 





する と … 
3 Lesson15.vhp 
⑳ VB6CD 
ョ ペコ Lesson15 人 午 メッ セー ジ が 
\ ツ ーー ~ ヽ 
w しか ie 
表示 され る 





メニ ユー コン トロ ロール は こと プロ グラ バ デ ザ イン 時 代 作 成す ずる だ 性 
で は な く 、 プ ログ ラム 実行 時 に 自由 に 追加 する こと が で きま す 。 

この プロ グラ ム で は 、 コ マン ド ボ タ ン [追加 ] が 押さ れる と 、 新 
し い メ ニュ ー を 追加 し て いき ます 。 追加 ご れ た メニ ュー を 選 点 と 、 
メニ ュー 頂 目 名 が ラベ ルコ ント ロー ル に 表示 され ます 。 


0 


LesSon15 メニ ュー を 追加 する 


円 コン トロ ー ル と プロ バ パティ の 設定 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


ツー ル ボ ックス の [Label] ! 薫 | を クリ ッ ク し 、 フ ォ | 。z フォ ー ム の 
ー ム 上 で ドラ ッ グ し て ラベ ルコ ント ロー ル を 配置 する ラグ 


ム の 高 さ を 変更 し て くだ 
ここ を クリ ッ ク 0 

その まま ここ まで 

ドラ ッ ク グ 


プロ パティ リ ピロ Pe ン ウ で Caption プロ バチ ィ の 








値 を 削除 する ダラ ベル を 選択 する 
この 操作 を 行う 前 に 、 作 
日 カ テイ ー Labalf | 成 し た ラベ ルコ ント ロー 
IEPG ー こ ) . ル が 選択 きれ て いる こと 
| Label1 Labsl 上 を 確認 し て くだ さい 。 
全体 | 項目 別 | 






| T ここ を ダブ ルク リッ ク 
BackStyls 1 - 本 透 HB 月 | 
BordsrStyle | 


ロー- な し と 介 Del キー を 押し て 
[Label 1 」 を 削除 


に aption 

DD ョ t ョ F jel ロ 

DataFormat 

DatalMeambsr 
DataSourcs 


ーー AA 





[BorderStyle] プロ バテ ィ を クリ ッ ク し 、[〒] を < 05 
クリ ッ ク し て [1 - 実 線 ] を 選 点 時 線 の 設定 


[BorderStyle] プロ パテ 


を ダル プク タリ ッ ク ヒ し て 、 
ms 較 | こ こ を クリ ッ ク [0 - な し ] と [1- 実線 ] 

を 切り 替え る こと も で き 
用 | ここ を クリ ッ ク 


と MID に TI 
Label1 Label 


全体 | 項目 有 | 
目 &H8OOOnOQF& 


BackColor 
BackStyle 1 - 二天 明 


9 ニ 中 議 記 










ます 。 










| 』 じ ョ ption 

DataFiald 5 忠久 ここ を クリ ッ ク 
 D ョ t ョ F or mat 
DatalMeambsr 


本 


第 日 時限 目 メニ ュー を 使う 





コマ ンド ボタ ン を 
\ ン 選択 する 
この 操作 を 行う 前 に 、 作 
導 し た コマ ンド ポタ ンコ 
ント ロー ル が 選択 され て 
いる こと を 人 確認 し て くだ 
さい 。 


くき メニ ュー の 追加 


メニ ュー を 追加 する 方 法 
に つい て は 、Lesson13 を 
参照 し て くだ さい 。 


まま ス 2 





1 フジ ェ ル 名 ) 


ツー ル ボ ックス の [CommandButton] を 
クリ ッ ク し 、 フ ォ ー ム に コマ ンド ボタ ン を 配置 する 


に も を デラ ジッ ジ し と 





プロ バテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ の 値 
を 「 追 加 ] に 変更 する 





UI 


|ICommand1 ommarndButton マ | 





王 1 本 | 項目 中 | 









上 DD ほら ョ 「 ョ ロ ご ら 1 - 3D 


ここ を ダブ ルク リッ ク 
BackColor | | &HBUHHHHF& | 
F ョ |== 
追 吉 [追加] と 入力 


[標準 ] ツー ル バ ー の [メニ ュー エディ タ ] を クリ ッ 
ク し 、 メ ニュ ー を 追加 する 








キャ プシ ョ ン トイ 
ファ イル IDMFile 


上 人 








キ *2 や SaVP) | 上 書き 保存 OK | 
本 間 間 Doo。。 ye | 
イ テ ッ ク CO | ショートカット G+ 1 な | 1) <| 「 
AM プ " エ テ キ メト 番号 djn ィ ゴ ッ エ ー ト 位置 lp - な し ] 


「 な めで ) レ 有効 E) レ 表示 ) ウント ウ リス ト WD 


| > | < し ae 」 mol 


: 。 39699SiGScSGYSSMBSAE こ SH 









LeSSOn15 メニ ュー を な を 追加 する 





メニ ュー に 区 切り 線 を 追加 し 、[ イ ン デ ックス ] に 
I0」 を 入力 し て [OK] を クリ ッ ク す る 





メニ ュー コン トロ ー ル 配 


列 の 各 要 素 を 識別 する た 
m 間 ||-| を 入力 め に 使用 され ます 。 
| seperetod を 衝 | | 月 コッ kn_mgm 


同じ 種類 の コン トロ ー ル 
を 配列 で 生成 ・ 管 理 で き 
芽 | [0| を 入力 る コン トロ ー ル の こと で 
す 。 
2 当 | [OK] を クリ ッ ク 


| ォ * フ や ョ 7(Py 








間 還 oo yr | 
ニヤ デ ウ zG lo ジョー トト S) | (ない) | 





アヤ 絆 メト 番 環 p 。 行 江 - ト 位 里 の hp-Eu | 
「「 な み @) し 有効 ⑤ に 表示 ) 「 92 トウ Wo 














「 1 (コー ト ) _ ロ II 


ーーーーーーーーー" ペ ーーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーー 


D1m ユエ C 〇 un AS エロ n ロ 上 GJ@G エ 





ーーーーー 


Form1:Fo rm-Load_ | 


] 開 Project1 - Form1 (コー ト ) 





P エ ュ で a ヒ G Sub Form Load ( ) 
1Coun モ E = 0O 
正 nd Sub 


引 F0orm1:C0mmand1-Click 
] Projsct1 - Form1 (コー ト ) ] 」 
|Command1 <| |ciick ・| ' 
P エ ュ ゞ a モ e Sub Command1 C1ick ( ) 
ュ 1COun 七 = 1Coun モ E + 1 
Load SGpDa エ a ヒ 〇 エエ ( 1 ミ C の un ) 


SGpDa エ a ヒ 〇 エ ( ユエ Count ) .Cap モ 上 on = "Menu" を も エ COun モ 
正 nd Sub 





第 日 3 時 限 目 メニ ュー を 使 








=Form1: ーー ュー ペーー 


| 二 Pr DjeC の ep ui 





上 Separater 


| 
| 
| 
| 
| 
| 


va 間 FI CSUBe AS 


Dim Msqg AS 8 上 了 エ ュ nd 


Msg = Separator(Tndex ) .Caption g "が 選択 され まし た " 
Labe1 1 .Cap モ on = Msqd 


End Sub 








』 








生 





この プロ グラ ム は 、 コ マン ド ボ タ ン [追加 ]」 を 押す と 、 メ ニュ ー に 次 々 と 
[Menuxx| と いう メニ ュー コン トロ ー ル を 追加 し て いき ます 。 ま た 、 追 加 き され た メ 
ニュ ー コ ント ロー ル を 選択 する と 、 ラ ベル コン トロ ー ル に その メニ ュー 項目 名 を 表 
示し ます 。 メ ニュ ー コ ント ロー ル の 追加 は 、 コ マン ド ボ タ ン の Click イベ ント プロ 
シー ジャ で 行い ます 。 


メニ ュー コン トロ ー ル を 追加 する に は 、 プ ログ ラム デザ イン 時 に 、 あ ら か じ め な 
ん ら か の メニ ュー コン トロ ー ル を 1 つ 配 置 し て お きま す 。 そ の と き 、 そ の コン トロ 
ー ル の [インデ ックス ] を 「0」] に 設定 し て お く こ と で 、 こ の コン トロ ー ル を | コン 
トロ ー ル 配列 ] に し て お きま す 。 

この プロ グラ ム で は 、 区 切り 線 |Separator」 の イン デック ス を 10」 に セッ ト し 
まし た 。 こ れ で 、 こ の Separator メ ニュ ー は 「 コ ント ロー ル 配 列 』」 と し て 披 え る よ 
うに な り ま す 。 


コン トロ ー ル 配列 と いう の は 、 同 じ 種 類 の コン トロ ー ル を 配列 で 生成 ・ 管 理 で き 
る コン トロ ー ル の こと を いい ます 。 た と えば 、 メ ニュ ー コ ント ロー ル |Separator」 
は 、 コ ント ロー ル 配 列 に する と 、 同 じ 名 前 の メニ ュー コン トロ ー ル を いく つも 作成 
する こと が で きま す 。 し か し 、 そ れ ぞ れ の コン トロ ー ル は 「 イ ン デ ックス 」 (Index 
プロ パテ ィ ) の 番号 で 区 別 す る こと が で きま す 。 

コン トロ ー ル 配列 の 利点 は 、 イ ン デ ックス 番号 - す な わ ち 配列 の 要素 数 に 変数 を 
使え る こと で す 。 


コン トロ ー ル を 配列 で 設定 し た 場合 は 、 そ の コン トロ ー ル に 対す る イベ ント プロ 
シー ジャ に は 、 新 た に 「Inmdex| と いう 変数 が 付加 され ます 。 こ の 変数 mdex の 値 に 
は 、 ど の コン トロ ー ル で イベ ント が 発生 し た の か 、 と いう イン デック ス 番 号 が 格納 
され ます 。 








QG 





LesSSOn15 メニ ュー を 追加 す 


し た が っ て 、 コ ント ロー ル 配 列 1 つ 1 つ に イベ ント プロ シー ジャ が 設定 され て 時 
び 出 きれ る の で は な く 、 イ ベン ト プ ロ シー ジャ は 1 つ だ け で 、 コ ント ロー ル は 配列 
番号 で 管理 され ます 。 


P エ ュ エマ a ヒ @G SuD SGpDa エ a モ oO て C1iok(T エ ndex As Tnteqer ) 


で は 、 実 際 に メニ ュー コン トロ ー ル を 追加 する プロ シー ジャ を 作成 し まし ょ う 。 

まず 、 フ ォ ー ム モジ ュー ル の 宣言 セク ショ ン 「Generall 「Declarations| に 、 配 
列 番号 を 設定 する た め の 変 数 「iCount」 を 宣言 し ます 。 こ の 変数 は 、 フ ォ ー ム の 
Load イベ ント プロ シー ジャ で 、 プ ログ ラム 起動 時 に 0 に 初期 化し て お きま す 。 


Dim 1COun 七 AS エ nE 上 egder 


P エ ュ ゞ で a モ 上 @G Sub Form Load ( ) 
iCount = 0・ ・ <・ ・ ・ <・ ・ ・ プロ グラ ム 起 動 時 の 初期 化 
nd Sub 


メニ ュー コン トロ ー ル を 追加 する の は 、Load ステ ー ト メン ト が 行い ます 。 こ の ス 
テー トメ ント は 、 ス テー トメ ント 名 の あと に コン トロ ー ル の 名 前 を 記述 し ます 。 


【Load ステ ー ト メン ト の 書式 】 
Lioad ObD]@eGC 


object ロー ド す る オブ ジェ クト 名 や コン トロ ー ル 配列 の 要素 名 を 記述 し ます 。 


この と き 、 コ ント ロー ル 配 列 を 指定 する の で あれ ば 、 コ ント ロー ル 名 の あと に 配 
別 番号 を 指定 する 必要 が あり ます 。 

最初 に メニ ュー エディ タ で 設定 し た Separator は 、 インデ ックス を 「0| に 設定 し 
て いま す の で 、 コ ント ロー ル 名 (オブ ジェ クト 名 ) は 「Separator(0)」 に な り ま す 。 
し た が っ て 、 次 に 追加 する コン トロ ー ル 名 は 「Separator(1)」 に な り ま す 。 


コマ ンド ボタ ン Command1 の Click イ ベン ト プ ロ シー ジャ に 、 メ ニュ ー コ ント ロ 
ー ル を 追加 する 処理 を 記述 し ます 。 

コマ ンド ボタ ン が 押さ きれ る た びに 、 メ ニュ ー コ ント ロー ル が 追加 され ます か ら 、 
配列 番号 に 変数 iCount を 指定 し 、 ボ タン が 押さ きれ る と この 変数 を 1 つ 増 加 さ せま す 。 

これ で 、 コ マン ド ボ タ ン が 押さ れる た びに 、Separator(1)、Separator(2)、 
Separator(3)、 と 新しく メニ ュー コン トロ ー ル が 追加 され て いき ます 。 


iCount = iCoun モ + 1 <・ < < siCount に 1 を 加算 する 
Load SGpa エ a モ Or ( 1Coun ) ・ ・ メ ズ メニュー コントロール separator を 追加 





第 日 3 時 限 目 メニ ュー を 使 5 










まっ (の | Separator 


Separator(O 
5eparetor() 
Separator② 






[Separator(1)」 を 指定 する こ 
と で イン デック ス 番 号 ICount の 
] 番目 を 指定 で きる 












S 


メニ ュー コン トロ ー ル が 追加 され た ら 、 メ ニュ ー に 表示 され る メニ ュー 項目 名 
(キャ プシ ョ ン ) を 設定 し ます 。 こ の キャ プシ ョ ン は 、 文 字 列 と 現在 の 配列 番号 を 使 
っ て 作成 し ます 。 


キャ プシ ョ ン は 、 コ ント ロー ル の [Caption] プロ パテ ィ で 設定 し ます 。 


Sepa エ a ヒ O エ ( 1Coun モ ) .Cap モ 上 1on = "Menu" & ユエ ユ C 〇 un モ 





追加 し た メニ ュー が 選択 さき れる と 、 メ ニュ ー コ ント ロー ル Separator の Click イベ 
ント が 発生 し ます の で 、 こ の イベ ント プロ シー ジャ で 処理 を 行い ます 。 

Separator_ Click() イ ベン ト プ ロ シー ジャ は 、0) 内 に どの コン トロ ー ル が 選択 され た 
の か を 示す 、 コ ント ロー ル 配 列 の 番号 を 格納 する 変数 |Index] を 持っ て いま す 。 
この Index の 値 を 調べ れ ば 、 何 番目 に 追加 し た コン トロ ー ル な の か が わか り ま す 。 

この 変数 nmdex を 使っ て 、 選 択 き れ た メニ ュー コン トロ ー ル の [Caption] プロ パ 
ティ を 取り 出し 、 ラ ベル コン トロ ー ル で 表示 し ます 。 


P エ ュ ゞ a 七 G Su わ SGpDa エ a ヒ 〇 の エ ご C11CKk ( エ nddex AS エ n 上 GJ9Gr ) 
Dim Msg AS 8 ヒエ ュ nqd 


Msg = Separatcr( Tndex ) .Caption g "が 選択 され まし た " 
Labe1 1 .Caption = Msqd 
下 nd Sub 





《D プロ グラ ム を 実行 し ます 。 [追加 ] ボタ ン を 1 回 押す た びに 、 メ ニュ ー を 見 て くだ 
さい 。 Menu1、Menu2、Menu3、 と 新しい メニ ュー が 増え て いき ます 。 

そし て 、 そ の メニ ュー を 選択 する と 、 ど の メニ ュー が 選択 され た か が ラベ ルコ ン 
トロ ー ル に 表示 され ます 。 


配列 に つい て 
配列 と いう の は 、 同 じ 種 類 の デー タ や オブ ジェ クト を 1 つ に まとめ た も の で す 。 Visual Basic 


の コン トロ ー ル は 、 ほ と ん ど が 配列 で 配置 で きま す 。 配列 を 使う と 、 変 数 や コン トロ ー ル の 名 
前 は 1 つ で 、 そ の 後に 「 添 字 ] と 呼ば れる イン デック ス 番 号 を 付加 する こと で 、1 つ 1 つの デー 


タ (また は オプ ジェ クト ) を 識別 で きる よう に な り ま す 。 

配列 の 利点 は 、 デ ー タ を 1 つの 名 前 と 番号 で 管理 ・ 操 作 で きる 点 で す 。 コ ント ロー ル も 1 つの 
名 前 と 番号 で 操作 で きま す 。 そ の た め 、 番 号 に 変数 を 使う こと が で きる よう に な り 、 式 を 使っ 
て プロ グラ ム 実 行 時 に デー タ や コン トロ ー ル に アク セス で きる よう に な り ま す 。 











LeSSOn15 メニ ュー を 追加 す 





プロ グラ ム 実 行 時 に メニ ュー を 追加 する 場合 は 、 デ ザイ ン 時 に 必ず ダミ ー の メニ ュ 
ー コ ント ロー ル を 1 づつ 作成 し て お きま す 。 こ の と き 、 メ ニュ ー 項 目 名 が 混乱 し な いよ 
うに 、 区 切り 線 を ダミ ー に 使う の が ポイ ント で す 。 こ の ダミ ー の コン トロ ー ル の イン 
デック ス を 「0」 に 設定 し て 、 コ ント ロー ル 配 列 に し て お きま す 。 

実際 に メニ ュー コン トロール を 追加 する の は 、Load メソ ッ ド が 行い ます 。 


る c》 練習 問題 


ン が | 追加 ] に 、 ら 番目 に 追加 べ れ た メニ ュー の キャ プシ ョ ン が 「 印 刷 」 
に な る よう に 、 プ ロ シ ジー ジャ を 改修 し て くだ さい 。 ま た 、 メ 三 ュ ユー がら 
つ 追 加 べ れ た 時 点 で 、 メ ニュ ー が 追加 で き な い よう に 処置 し て くだ さい 、。 


〇 1 「Lesson15.vbp」 を 使っ て 、 最 初 に 追加 され た メニ ュー の キャ プシ ョ 


【 ヒ ント 】 

最初 に 、 コ ント ロー ル 配 列 の イン デック ス 番 号 を 調べ 、If ステ ー ト メン 
ト で 処理 を 分 岐 し ます 。 

あと は 、 コ ント ロー ル 名 の 配列 番号 を 、 変 数 で は な く 直 接 数 値 で 指定 
し て 、[Caption] プロ パテ ィ に メニ ュー 項目 名 の 文字 列 を 代入 し ます 。 


解答 は 巻末 に 一 





者 馬 ワン ポイ ント アド バイ ス 


設定 し た メニ ュー を 使え な いよ うに (グレ ー 表 示 ) する に は 、 メ ニュ ー コ ント ロー ル 
の Enabled] プロ パテ ィ を 「False」 に 設定 し ます 。 こ れ で 、 メ ニュ ー に 項目 名 は 表 
示さ れ て いま す が 、 グ レー 表示 に な っ て 使用 で き な い 状態 に な り ま す 。 

元 に 戻す に は 、[Enabled] プロ パテ ィ を 「True」 に 設定 し ます 。 


TDMOpen .Enab1ed = False の と き 


| ファ イル | 


メニ ュー が グレ ー 表 示 に な っ て 動作 し な い 








第 日 3 時 限 目 メニ ュー を 使 2 


メニ ュー の 削除 
メニ ュー か ら メ ニュ ー コ ント ロー ル を 削除 する 方 法 を 覚え ます 。 比較 演 
算 子 を 使っ て み ま す 。 





今回 作成 する プロ グラ ム 


| 削除] を クリ ッ ク 








する と … 
第 日 
4 時 限 目 
1 前 陸 し まし た メッ セー ジ が 表示 





2 Lesson16.vbp 
@⑥) VB6CD 


= Lesson16 | Menul」 が 削除 


ご れる 





Microsoft Excel| な ど で は 、 セ ル を 操作 する 場合 と グラ フ を 操作 
する 場合 で は 、 メ ニュ ー の 項目 名 が 入れ 替わる 場合 が あり ます 。 

これ ら は 、 メ ニュ ー の 追加 処理 と 、 メ ニュ ー 削 除 の 処理 を 上 手 に 
組み 合わ せ て 行っ て いま す 。 こ の レッ スン で は 、 メ ニュ ー か ら メ 
ニュ ー コ ント ロー ル を 削除 する テク ニッ ク を 党 え ます 。 


8 





LesSOn15 メニ ュー の 削除 


幅 コン トロ ー ル と プロ バ パテ ィ の 設定 





※ こ こ で は 、 前 回 の 「Lesson15.vbp]」 ファ イル に 追加 し ます の で 、 Lesson15.vbp 
この プロ ジェ クト ファ イル を 開い て くだ さい 。 く プ の 保存 場所 


0 この ファ イル は 、 付 録 CD- 
上 ツー 放 科 ックス の LCommandButton] 上 量 を ク 人 
リッ ク し 、 フ ォ ー ム に コマ ンド ボタ ン を 配置 する 


ここ を クリ ッ ク 
その ま 示 ご と まぐ 
ドラ ッ グ 


プロ パテ ィ ウ ィ ン ド ウ で Caption] プロ パテ ィ の < Mo 
値 を | 削除 ] に 変更 する 





この 操作 を 行う 前 に 、 作 
成 し た コマ ンド ボタ ンコ 








| に ニニ ニニ ニー | ント ロー ル が 選択 され て 
lcCommand2 CommardBiutton cl いる こと を 確認 し て くだ 
全体 | 項目 | | さい 。 





ここ を ダブ ルク リッ ク 
| | &H8BUHUUUUF& 
F ョ |== | 
回 妥 | [削除 」 と 入力 


久 [( オ ブ ジ ェクト 名 )] の 値 を 「Del] に 変更 する 


En テイ ー 凍 TTi サー aa デリ | 1 ここ を ダブ ルク 條 ツ ク 
|ICommand2 CpbmmardBiutton マ 


全体 | 項目 則 | 








刷 D= ョ r ョ コロ 1 - 3D 
BackColor | | &H8HHUn0F& 
ance| Fa| ほ = 

ビ ョ ption 月 [ 際 

じ ョ ===" ョ id ョ tion True 

邊 に て た YWE F >! ニュ 
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第 日 4 時 限 目 メニ ュー を 使う 


ボタ ン な どの コン トロ ー 
ル を 正確 に 捕え た いと き 
は | 書式] メニ ュー を 使 
いま し ょ う 。 [書式 ] メニ 
ュー は 複数 の コン トロ ー 
ル を 選択 し て か ら 使 いま 
す 。 一 番 最 後に クリ ッ ク 
し た コン トロ ー ル の プロ 
パテ ィ を 基準 と し て 書式 
が 整え られ る の が ポイ ン 
トド で す 。 
[整列 ] メニ ュー で は 、 上 
下 左右 に コン トロ ー ル 同 
士 を 揃え る こと が で きま 
す 。 


SO 。  UULUIVII | | 
書式 メニ ュー に つい て 
フォ ー ム に 配置 し た コン トロ ー ル の 位置 や 上 下 の 重 な り を 調整 する 場合 


ペダ ポタ ン を 捕え る 用 ボタ ン を ドラ ッ グ し て 配置 を 調整 する 


ET 





り 書式 〇 テバ アブ YD> 実生 > 2r9-QLD デザ ツラ 4⑤ クー が D 





f 二 じす イメ 1 に 揃え る (Mo 
で 23 電 1 こさ わせ ちる (D) 


と ネコ ゴ の 
上 下 の 電 の 


eee は 、 コ ント ロー ル を 直接 操作 する 以外 に 、Visual Basic の [書式 ] メニ ュ 
[同じ サイ ズ に 揃え る ] メ ー を 使う と 便利 で す 。 
ニュ ー で は 、 幅 や 高き を 


同じ 値 で 揃え る こと が で また 、 複 数 の コン トロ ー ル を 選択 状態 に する と 、 こ れ ら を まとめ て 移動 
する こと が で きま す 。 [書式 ] メニ ュー の [コン トロ ー ル の ロッ ク ] を 使う 
と 、 そ の コン トロ ー ル を 移動 する こと が で き な く な り ま す 。 す で に 位置 を 
決め た コン トロ ー ル は 、 こ の 機能 で ロッ ク し て お きま し ょ う 。 





) 書式 の) チカ Xp> 実行 GG) 7 サーG①) ゲイ 他 7 う 4 クーTD 






吾 和 ka) 


湯 い 
ST 視 高 tb 計 還 還 
放電 1 に こさ わせ る ⑯) 3 玉 和 
を ちの 本 上 * 2 
上 下 の 欄 性 


ーーーー-- 全 = つ -2eeh ーー 








sd コー ド の 記述 





引 F0rm1:Del-Click 


cx 導 41 間 の 





Del マ |Click ・| 


P ェ ュ ゞ ate Sub De1 C1ick ( ) 
エ F 1Coun モ <> 0O "Then 
Un1oad_ SGpa エ a ヒ 〇 エ ( 1Count ) 
Labe11 .Caption = "Menu" g Count gg "を 削除 し まし た = 
1COun 七 = 1Count - 1 
1s@ 
MsgBox "削除 で きま せん 
「 nd エモ 
End Sub 





LesSoOn15 メニ ュー の 削 





』 





[削除 ] ボタ ン を 押す と 、 追 加 し た メニ ュー を 最後 に 追加 し た 順番 に 削除 し て いき 
ます 。 メ ニュ ー コ ント ロー ル を 削除 する 処理 は 、[ 削 除 ] ボタ ン の Click イ ベン ト プ 
ロ シ ー ジ ャ で 行い ます 。 コ ント ロー ル を 削除 する に は 、Unload ステ ー ト メン ト を 使 
用 し ます 。 


Un1oad Ob わら ec 


object に 、 削 除 す る コン トロ ー ル の オブ ジェ クト 名 を 記述 し ます 。 コ ント ロー ル 
が 配列 の 場合 は 、 イ ン デ ックス を 付け て 指定 し ます 。 


[削除 ] ボタ ン の プロ シー ジャ で は 、 最 初 に ステ ー ト メン ト を 使っ て 、 追 加 し た 
メニ ュー が ある の か な い の か を 判断 し ます 。 

変数 iCount の 値 を 調べ て 、 そ の 値 が |10] で な けれ ば GCount<>0) 、 メ ニュ ー コ 
ント ロー ル の 削除 を 行い ます 。 削除 を 実行 し た 後 、 ラ ベル コン トロ ー ル を 使っ て そ 
の コン トロ ー ル 名 と メッ セー ジ を 表示 し ます 。 





エ F 1Coun モ 上 <> O Then 
Un1oad SGpDa エ a ヒ 〇 の エ ( エミ COun 七 ) 
Labe11 .Caption = "Menu" g Count g "を 削除 し まし た 


名 If ステ ー ト メン ト で 変数 iCount の 値 を 調べ る の に 、<> と いう 記 人 号 を 使っ て いま 
す 。 こ の 記号 は 、「 比 較 演 算 子 |] と いい 、2 つ の デー タ を 比較 する と き に 使い ます 。 
<> の 記号 は 、|「 等 し く な い 」 こと を 判断 し 、2 つ の デー タ が 等 し く な けれ ば | 真 」 
を 返し ます 。 

ここ で は 、 変 数 iCount の 値 と 数 値 10] を 比較 し 、 等 し く な けれ ば この 演算 子 は 
| 真 ] を 返し ます の で 、If ス テー トメ ント が 動作 し Then 以降 の 処理 が 実行 され ます 。 













ュー 使い 方 
| < 。 | より ひさ い |A<B 
|  。 1 以下 A<=B 
より 大 きい 
BE 
|ー | Wu |A=e 
| っ | 圭 C<gu | Ao 


修 。) メニ ュー コン トロ ー ル を 削除 し た ら 、 変 数 iCount の 値 を 1 つ 減 らし て お きま す 。 
この 処理 を し て お か な いと 、 存 在 し な い メ ニュ ー コ ント ロー ル 配 列 の 番号 が 残っ て 
し まい 、 プ ログ ラム が 異常 動作 を 起こ し て し まい ます 。 





第 日 4 時 限 目 メニ ュー を 使 mm 





1Coun 七 = 1Count - 1 





う 


変数 iCount の 値 が 「0| で あれ ば 、 メ ニュ ー の 追加 は あり ませ ん か ら 削 除 が で き 
ませ ん 。 そ の 場合 は 、 メ ッ セ ー ジ ボッ クス で 「 削 除 で きま せん | と 表示 し ます 。 


下 1se 
MsgBoxx "削除 で きま せん 





Else ス テー トメ ント は 、If ス テー トメ ント で 使っ た 条件 以外 の 条件 の と き に 使い 
ます 。 最初 の ステ ー ト メン ト で は 、 変 数 iCount の 値 が 0 で な い 場 合 で 処理 を 記述 
し まし た 。 そ れ 以 外 の iCount の 値 が 0 で あっ た と き の 処 理 は 、 こ の Else ステ ー ト メ 
ント を 使い ます 。 次 の 例 の IfF ス テー トメント は 、 変 数 i の 値 が 0 の 場合 は 処理 1 と 処 
理 2 を 実行 し 、0 で な い 場 合 は 処理 3 を 実行 し ます 。 


エ E すす = 0 Phen 


ie の 式 が 真 (True) の 場合 


忌 1se 


.. 処理 3 式 が 偽 (False) の 場合 
下 nd エモ 


この よう に 、HfE ス テー トメ ント と Else ス テー トメ ント を 組み 合わ せる と 、1 つ の 
和 件 で 処理 を 2 つ に 振り 分 ける こと が で きま す 。 





プロ グラ ム を 実行 し ます 。 [追加 ] ボタ ン を 押さ な いで [削除] ボタ ン を 押す と 、 
| 削除 で きま せん | と いう メッ セー ジ が 表示 され ます 。 


し UULUIUIV 。:。 
ff ス テー 
複数 の 処理 が 必要 な と き は 「Then」 の 後 で 改行 し て 、 最 後に 「End Hf| を 記述 し ます 。 ま た 


|End If] は 、 必 ず 行 頭 か ら 始ま る よう に 記述 し ます 。1 行 だ け の 処理 の 時 は 「Then| の 後に 続 
け て 書く こと が で きま す が 、 そ の 際 「End ff| は 必要 あり ませ ん 。 


【 正 し い 記 述 】 


エ F Check1 .Va1ue = 1 Then 
MsgBox "チェ ッ ク さ れ て いま す " 
End エモ 
(又は ) rE check1 .va1ue = 1 mhen MsgBox "チェ ッ ク さ れ て いま す " 


【 エ ラー に な っ て し まう 記述 】 


ェ E Check1 .Va1ue = 1 Then MsgBox "チェ ッ ク さ れ て いま す 
End TE 











LesSoOn16 メニ ュー の 削 


[追加 ] ボタ ン で メニ ュー コン トロ ー ル を 追加 し た 後に 、[ 削 除 ] ボタ ン を 押す と 、 
最後 に 追加 され た メニ ュー コン トロ ー ル が 削除 きれ ます 。 
それ ぞ れ 、 メ ニュ ー を 表示 し な が ら 、 追 加 ・ 削 除 の 動作 を 確認 し て くだ さい 。 


[追加 ] と 削除] の 処理 を 組み 合わ せる と 、 プ ログ ラム の 実行 中 で も 状況 に 応じ た 
メニ ュー 構成 を 自由 に 作成 で きま す 。 

この 場合 、 メ ニュ ー が 選択 され た 処理 は 、 そ の メニ ュー の イベ ント プロ シー ジャ で 
行い ます か ら 、 メ ニュ ー が 表示 され て いて も 、 あ ら か じ め 負 理 を 作成 し て お く 必 要 が 
あり ます の で 注意 し て くだ さい 。 


る c》 練習 問題 


旧 作成 し た プロ グラ ム を 使い 、 追 加 し た メニ ュー の ら 2 番目 (Menu2) が 
選択 され た と き に 、 ラ ベル コン トロ ー ル の 文字 色 を 「 赤 」 に 変え る よう 
に し て くだ さい 。 


【 ヒ ント 】 

① 処 理 は 、 メニュー コン トロール の Click イベ バン ト プ ロ シー ジャ で 行い 
ます 。 そ の 際 、 コ ント ロー ル 配 列 の イン デック ス が 「 ら 」 の 場合 の 処理 
を 作成 する こと に な り ま す 。 特定 の コン トロ ー ル 配列 を 指定 する 場合 
は 、 直 接 配 列 番号 を 指定 し ます 。 

@ ぐ イン デック ス の 値 を 調べ る に は 、If ステ ー ト メン ト が 便利 で す 。 


ビー こっ 


解答 は 巻末 に 一 


者 馬 ワン ポイ ント アド バイ ス 


コン トロ ー ル 配列 に な っ て いな いい メニュー を Unload ステ ー ト メン ト で 削除 し て し ま 
うと 、 そ の イベ ント プロ シー ジャ も 消滅 し て し まい 、 あ と か ら 追 加 で き な く な っ て し ま 
いま す 。 そ の 場合 は 、Visible プロ パテ ィ を 使っ て 、 メ ニュ ー の 表示 ・ 非 表示 を 切り 替 
える よう に し ます 。 





各 さ 日 4 時 限 目 メニ ュー を 使 に 





第 日 
5 時 限 目 


2 Lesson17.vhp 
9 VB6CD 


ョ ヨーコ Lesson17 


』 う 人 


状況 感知 型 メ ニュ ー を 作成 する 


メニ ュー コン トロ ー ル の [Visible] プロ パテ ィ を 使う 方 法 を マス ター 
し ます 。 


ラ 回 作成 する プロ グラ ム 


石 ク リッ ク で ポッ プア ッ プ 
メニ ュー が 表示 され る 
= ロロ x| 





表示 ] 一 [フォー ム の 表示 ] 
を クリ ッ ク す る こと … 





ファ イル 


FOrm ら が 表示 され る 


| 右 有 リック で ポ ボ ポップアップ 
旨く メニ ュー が 表示 され る 


WIindOwS 965 の アプ リケーション で よく 使わ れ て いる ポッ プア ッ 
プ メ ニュ ー は 、 状 況 に 応じ て メニ ュー 項目 が 変化 し ます 。 

配 直 し た メニ ュー コン トロ ー ル の Visible] プロ パテ ィ を 使う と 、 
この 状況 に 応じ て 変化 する ポッ プア ッ プ メニ ュー を 作成 で きま す 。 
この プロ グラ ム は 、 ポ ボ ポップアップ メニ ュー の と きだ け 専 用 の メニ 
ュー を 表示 する プロ グラ ム で す 。 ら つの フォ ー ム を 持ち 、 そ れ ぞ れ 
が 別 の ポッ プア ッ プ メニ ュー を 表示 し ます 。 


Lesson17 状況 感知 型 メ ニュ ー を 作成 する 






円 コン トロ ー ル と プロ パテ ィ の 設定 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


[標準 ] ツー ル バ ー の [メニ ュー エディ タ ] 』 還 | を 
ケタ リッ プク す る 


[メニ ュー エディ タ ] ダイ アロ グ ボ ックス で 、 次 の | <@ _。。。 
メニ ュー を 設定 する 5 

メニ ュー を 設定 する 方 法 
に つい て は 、Lesson13 を 
参照 し て くだ さい 。 
















キャ プシ ョ ン 名 前 表示 
(Caption) (Name) (VisiDble) 


ナチ 










ナ 

ナ 
| | niesepaater |x 

… フ ォ ー ム の 表示 
キシ ョ XP) | フォ ー ム の 表示 OK | 


名 前 KM) IDMForm キャ ッ セ ル | 














イヤ テ CO の jn ョ ー ト 直 G) (ない ・| 
AL プ * テキ メト 番号 (Hp # ゴ エー ト 位置 ⑥。 ln- ぉ な し 


「 99(C) レ 有効 E し 表示 | ウル トウ リス メト WD 


ファ イル 
"1 玉 仔 


表 坊 


ー 1 い ペー 
ck と mp 『 ま すす テー すす 


ろう 


更 日 5 時 限 目 メニ ュー を 使う 





フォ ー ム モジ ュー 
くき ル の 一 覧 


[| フォーム モジ ュー ル の 追 
加 ] ボタ ン の 右側 に ある 
[|] を クリ ッ ク す る と 、 
フォ ー ム モジ ュー ル の 一 
覧 が 表示 され ます 。 


次 回 か ら こ の ダイ 
< ぐ きき アロ グ ボ ックス を 
表示 し な い 


[次 回 か ら こ の ダイ アロ グ 
ボッ クス を 表示 し な い ] 
チェ ッ ク ボ ックス を クリ 
ッ ク し て チェ ッ ク し て お 
く と 、 次 回 か ら こ の ダイ 
アロ グ ボ ックス が 表示 さき 
れ な く な り ま す 。 


しま も も ンジ 
くぎ スプ ロー ー ラ で 人 確認 


た デジ ュー ル を 追 
加 す る と プロ ジェ クト エエ 
クス プロ ー ラ で 確認 する 
こと が で きま す 。 






Projecti CProjact) 
ゴー 必 連 フォ ー ム 
Form1 (Form1) 
Form2 Form2) 


126 


匠 = 4 加 表示 my き o デ が が YD) 
_・ な 2 “ 
者 


eo 
bl 撫 - ず - や HMD 


レ 
| 還 
〇 
自 
隊 


回 
に 

| 同 な Data Envwonment 
電 


' | 





[標準 ] ツー ル バ ー の [フォーム モジ ュー ル の 追加 ] 
を クリ ッ ク し 、[ フ ォ ー ム モジ ュー ル ] を 選 京 


















標 MDI 0 ス 本 ューD 
_ 2 クラス キツ ュー ル (C) 
。 回 ナカ ティ ページ パ R) 
WWebClas= 
Data Report 


DHTIML Psgs 


その 他 の Activex デザ イナ Q)。 ゅ 
2 ファ ル の っ 追加). Cr は ば bD 





[フォ ー ム モジ ュー ル ] を 選択 し 、 
する 


[開く ] を クリ ッ ク 








の の) 
、 新規 作成 | 革 字 の う f ル | 


ここ を クリ ッ ク 
ここ ダン リッ ク 





「 決 回 か ら こ の 7 ロ ゲ ポカ カス を 表示 し な も WU 


に Form ら 2 が 追加 ご れる 





LesSon17 状況 感知 型 メ ニュ ー を 作成 する 


iP 以下 の メニ ュー を 設定 する 












キャ プシ ョ ン 名 前 わい ミリ 
(Caption) eeuaatae (Visible) (Enabled) 


7 |pwEw | テ ェ ッ ク | テ ェ ッ ク 
[mm |pweaw lec | sv 












| 名 前 lipMCopy キャ ソ セ ル | 
ー イ デア 2G の | ショート zh) [な い <| 
AL7 ヤキ スト 番号 CD [p 守 江 - ト 位置 ⑥。 |on- な し 


「 お の じ レ 有効 じ レ 表示 ) ウト ウリ メト の 


ーー*| >| | と | し 生 W 」 We | Wo | 





7* 次 の よう な フォ ー ム が 完成 する 


" PPT rt Pe 
ロロ 





の メニ ュー の 設定 


メニ ュー を 設定 する 方 法 
に つい て は 、Lesson13 を 
参照 し て くだ さい 。 


ポッ プア ッ プ 用 の 
コン トロ ー ル 
[編集 ] メニ ュー だ け 、 
[有効 ] と [表示] の 
サケ ク を は すし た と も と 朋 

さい 。 


1 スプ 


第 3 日 5 時 限 目 メニ ュー を 使う 








旨 FOrm1:FOrm- WOuseDown 






EPR ます 29 で で 


| IForm <| louseDown ・| 「 


の の の p 二 和 芝生 


Pr ュ YaEe Sub Form MouseDowm ( Bu 上 on As TnEteger, Shif も Ag Tntege エ , 2 
As Single, Y As Sing1e ) 








エエ F Buon = 2 "Then 
FeGSGpa エ a モ oO エ . び is1ib1e = True 
TDMOpen . び ュ S1b1e = True 
TDMSave . び ュ エ s1b1e と エ u ら G 
PoOpupMenu TDMEF ュ ユ 1e, ゞ bPopupMenuR1iqhE 上 Bu ヒモ on 
TDMOpen . び isib1e = Fa1se 
TDMSave . び 1sib1e = Fa1se 
F ュ GSGpa エ a モ oO て . び sib1e = Fa1se 

EnQd TE 

End Sub 


ョ Form1: IDMExit- Click 


PT jact1 - Form1 (ゴー 





ーー ニーーーーーー ニ ーーーーーーーーーーーーーー 一 emm ペー ンー ン ーーーーcmeoooos 


PP エ ュ で a ヒ G Sub TDMEsxi も _C1tek() 





EnQd 
正 nd Sub 


ョ Form1:IDMForm-Click 
| っ 、 hip = Tl (コー ト ) 


| IDMkMFor m マ Click ER ド 。 。  。 還 ] 


テーーーーーーーーーーーーーーーーーーーーー…ー 








・ーーーーーーー バ ーーーーーーーー ツ ーー ツーン ーー プーーーーーー ーーーーーーーーー 


_ Private gub エ DME'orm C1icfk (Tndexx AS エロ 上 GJ@Gr ) 
FOrm2 .Show 1 
nd Sub 





ョ Form1:IDMOpen-Click 
に FFP - Form1 (コート) 


| IIDwopen 記 Icek ・| 


ーーーーーーーーーーー 





_P エ ュ ゞ a ヒ @ sub エ DMOpen C1ick ( ) 
| MsgBox "メニ ュー が 選択 され まし た * 
End Sub 





LeSSon17 状況 感知 型 メ ニュ ー を 作成 す 


ョ Form1 IDMSave-Click 


| 呈 Project1 - Form1 (コー ト ) 









| 生ま yate Sub TDMSare C1iok ( ) 
MsgBox "メニ ュー が 選択 され まし た = 
正 nd Sub 


=Fom2fom-MouseDown 


| 呈 Project1 - Form2 (コート) 


' IForm <| [MouseDown <| ] 






ーーーーーーーーーーーーーーーー… 


P エ ュ ゞ a モ @G Sub Form MouS ら Dowrm ( Bu 上 上 on AS Tnteger, ShiF モ 上 As Tnteger, 
双 As Single, Y As Sing1e ) 
エ 全 玉 u 上 上 on = 2 Then 
TDMEQ ュ it . 正 nab1ed = "True 
PopupMenu TDMEQ ュ Et , ゞ で bPopupMenuR1 も dh 上 Bu 上 上 の m 
TDMEQ ェ ュ モ . 正 nab1ed = Fa1se 
nd エモ 
正 nd Sub 


POPmG: 和 0 績 5 も 0K 








Projsct1 - Form2 (コー ト ) = | し 
IDwcopy ・| |click ・| | 


 P エ ュ ゞ a 七 @ Sub TDMCop ゞ _ C11cCK ( ) 
| MsgBox "メニ ュー が 選択 され まし た " 
正 nd Sub 





| IIDMExit <| [ciick <| 
P エ ュ ゞ で a モ 上 Sub TDMExx1 ユ ヒモ CCK ( ) 

Unload Form2 
正 nd Sub 











都 馬 ワン ポイ ント アド バイ ス 


コー ドウ ィ ン ド ウ で の ショ ー ト カッ ト 人 で Ctrl クイ ッ ク ヒ ント 表示 
念 CtrlHTF2 オプ ジェ クト リス ト パ 准 ゅ 人 @ Ctrl+Shift+| パラ メー タヒン ト 表 示 
クス の 選択 人 で CHJ… ーー プロ バテ ィ プ メソ ッ ド 
仙 T ヨ D イン デ テント 、 ま た は 日 の 一 覧 
ジェ クト リス ト 間 を 移動 人 @ Ctr+Shift+J …・ 定 数 の 一 覧 





第 日 5 時 限 目 メニ ュー を 使 ヒ う 








』 





この プロ グラ ム は 、 ち ょ っ と 複雑 な 動き を し ます 。 


① プ ログ ラム 起動 時 は 、Form1 だ けが 表示 きれ ます 。 こ の フォ ー ム に は 、[ フ ァ イ 
ル ] と [表示] の 2 つの メニ ュー が 組み 込ま れ て いま す 。 





②Form1 の 上 で マウ ス の 有 有 ボタ ン を 押す と 、 メ ニュ ー が ポッ プア ッ プ し ます 。 こ の 
メニ ュー に は 、 フ ォ ー ム の [ファイル] メニ ュー に 加え て 、[ 開 く ] と [保存 ] メ 
ニュ ー が 追加 きれ て いま す 。 





③ [表示 ] メニ ュー か ら [フォ ー ム の 表示 ] を 選 京 と 、 も う 1 つ の フォ ー ム 
「Form2| が 表示 され ます 。 こ の フォ ー ム は 「 モ ー ダ ル 」| (P.133 参照 ) で 起動 する 
だ た だめ 、 こ の フォ ー ム を 閉じ な い 限 り Form1 の 操作 が で きま せん 。 











Lesson17 状況 感知 型 メ ニュ ー を 作成 す 


(①⑧ こ の FEorm2 に は 、[ フ ァイル |] メニ ュー だ けが 表示 され て いま す 。 し か し 、 フ ォ 
ー ム の 上 で マウ ス の 右 ボ タン を クリ ッ ク す る と 、| コ ピー] メニ ュー が ポッ プア ッ 
プ さ れ ま す 。 








フォ ー ム の メニュー と ボッ プア ッ プ メニ ュー は 、 す べ て の メニ ュー を あら か じ め 
ュー ディ タ で 作成 し て お きま すず す 。 

た だ し 、 最 初 か ら 表 示し て お く メ ニュ ー と 表示 」 し な い メ ニュ ー を 。、 メ ニュ ー エ デ 
ィ タ の | 表示 | チェ ッ ク ボ ポッ クス で 謎 定 し て お きま す 。 ボ ポップアップ メニ ュー に 便 
う メ ニュ ー は 、| 表 示 」| ま ェ ッ ク ポ ックス の チェ ッ ク を は ず し て 生 きま ます 。 こ うし て 
お く と 、 プ ログ ラム 実行 時 は [表示] チェ ッ ク ボ ックス に チェ ッ ク を 付け た メニ ュ 
ー の み が 表 示さ れ ま す 。 





ノ 


人 で は 、 ま ず プ ログ ラム 起動 時 に 表示 きれ る Form1 から 説明 を し て いき まし ょ う 。 
Form1l の ボッ プア ッ プ メニ ュー は 、MouseDown イ ベン ト プ ロ シー ジャ を 使い ま 
す 。 最初 に 、IF ス テー トメ ント を 使っ て ボタ ン の 種類 を 把握 し 、 右 ボタ ン が 押さ れ 
た と きのみ 、 処 理 を 実行 する よう に し ます 。 こ の と き に 行う 処理 は 、 プ ログ ラム 作 
成 時 に メニ ュー エディ タ で [表示 ] の チェ ッ ク を は ほ はず し た こつ の メニ ほ ー コ ント 
ロー ル を [表示 ] に 設定 する こと で す 。[ 表 示 ] の プロ パテ ィ は [Visible] で すか 
ら 、 各 コン トロ ー ル の [Visible] プロ パテ ィ の 値 を 「True」 に 設定 する と 、 こ れ ら 
の メニ ュー コン トロ ー ル は 表示 状態 に な り ま す 。 


エエ Bu モ ton = 2 Then 
FT ら SGpDa エ a 七 の エ . び エミ S ュ 1b1e = エエ uG 
TDMOpen . び エミ S1b1e = エエ ue 
エ TDMSae . ぴ エ S1Db1G = エエ uG 





メニ ュー を 表示 状態 に し た ら 、PopUpMenu メ ソ ッ ド を 使っ て メニ ュー を 表示 し 
ます 。 こ の と き 、 最 初 の 階層 の メニ ュー コン トロ ー ル 名 (オブ ジェ クト 名 ) を 指定 
する と 、 次 の 層 の メニ ュー が 表示 され ます 。 


PopupMenu TDMEF ュ 11e, ゞ で bPopupMenuR1h 世 ぃ い 上 On 





第 日 5 時 限 目 メニ ュー を 使 











O 


ー 





ここ で は 、IIDMFHile」 (ファ イル ) メニ ュー を PopupMenu に 指定 する と 、[ フ ァ 


イル | メニ ュー の 下 の メ ニュ ー が ポッ プア ッ プ 表示 され ます 。 最初 の 階層 の メニ ュ 
ー (メニ ュー タイ トル ) は 、 ポ ッ プ アッ プ メ ニュ ー で は 表示 され ませ ん 。 


メニ ュー が ポ ボ ポップアップ され て 処理 を 終え た ら 、 表 示 状 態 に し た メニ ュー を 、 再 


度 非 表示 に し ます 。 こ うし て お か な いと 、 フ ォ ー ム の メニ ュー に これ ら の メニ ュー 
が 表示 され て し まい ます 。 


TDMOpen . び 1sib1e = Fa1se 
TDMSave . び sib1e = Fa1se 


F ュ iTeSeGpa エ a モ Oo.1sib1e = Fa1se 






この 3 つの 項目 が 非 表示 
の 設定 に な っ て いる た め 
[終了 ] だ けが 見 えて いる 






メニ ュー の 処理 が 作成 で きた ら 、 各 メニ ュー の イベ ント プロ シー ジャ を 作成 し ま 


す 。 


まず 、[ フ ァイル |] メニ ュー か ら [終了 |] が 選ば れ た ら 、 プ ログ ラム を 終了 する の 


で 。 こ の イベ ント プロ シー ジャ に End ス テー トメ ント を 記述 し ます 。 


P エ ュ マ a モ E@G Sub TDMExx ュ ユヒ C11CK() 
EnQd 
End Sub 


[開く ] と [保存] メニ ュー は 、 こ こ で は 実際 に 動作 する 部 分 は 作成 し ませ ん か ら 、 


メッ セー ジ ボ ッ クス の 表示 で 済ま せ て いま す 。 


P エ ュ ゞ a モ ee Sub TDMOpen C1ick ( ) 
MsgBox "メニ ュー が 選択 され まし た 
End Sub 


P エ ュ a モ 上 e Sub TDMSave C1iock ( ) 
MsgBox "メニ ュー が 選択 され まし た = 
End Sub 








LeSsSon17 状況 感知 型 メ ニュ ー を 作成 す 


8 [表示] メニ ュー の [フォ ー ム の 表示 ] を 選ぶ と 、Form2 を 表示 させ ます 。 
フォ ー ム を 表示 する に は 、Show メソ ッ ド を 使用 し ます 。 
ID 0 
O ち も] ec . Show 8S ヒ 1e 


objec 表示 する オブ ジェ クト 名 を 記述 し ます 。 
5 モ マ 1e 表示 する フォ ー ム を 、「 モ ー ド レス 」 で 表示 する か 「 モ ー ダ ル 」 で 表示 
する か を 設定 し ます 。 


| モー ドレ ス 」 表示 と は 、 呼 び 出 し た 側 も 呼び 出さ れ た 側 も 、 ど ちら の フォ ー ム も 
表示 後 の 操 作 が で きる モー ド で す 。 一 方 、「 モ ー ダ ル 」 表示 は 、 呼 び 出 され た フォ ー 
ム し か 操作 で きず 、 こ の フォ ー ム を 閉じ な けれ ば 呼び 出し た 側 の フォ ー ム の 操作 が 
一 切 で き な い モー ド で す 。 

この style に 、「0」 を 設定 する (ある い は 省略 する ) と 「 モ ー ド レス 」 に 、「1」| を 
設定 する と 「 モ ー ダ ル 」 表示 に な り ま す 。 こ こ で は 、「 モ ー ダ ル 」 表示 で Form2 を 
表示 させ ます 。 


P エ ュ ゞ で a ヒ @G Sub TDMEorm C1iok( エ ndex AS Tntegder ) 
FoOrm2 .Show 1 
正 nd Sub 





続い て 、 メ ニュ ー か ら 呼 び 出さ れる Form2 の プロ シー ジャ を 作成 し ます 。Form2 
を ダ プ ルク リッ ク し て 、Form2 の コー ドウ ィ ン ド ウ を 表示 し て くだ さい 。2 つ の フ 
ォ ー ム で 、 同 じ よ うな 処理 を 作成 し ます か ら 、 フ ォ ー ム を 間違え な いよ うに し まし 
た の 。 ます 3 者 emm2 の 上 で マウ ス の 右 ボ タン を クリ ッ ク グ す る と 。 ボ ポ ボップ アップ メニ 
ュー が 表示 され ます 。 こ の 処理 は 、Form2 の MouseDowyn イ ベン ト プ ロ シー ジャ で 
行い ます 。 





Form2 の [編集 | メニ ュー は 、 メ ニュ ー 作 成 時 に メニ ュー エディ タ で [有効 ] 
(Enabled チェ ッ ク ボ ックス の チェ ッ ク を は ず し た の で 、 こ の メニ ュー は 「 無 効 」 
(使用 不可 ) 状態 に な っ て いま す 。 こ の た め 、 プ ログ ラム 実行 時 は (フォ ー ム 表示 時 
は ) メニ ュー に は 表示 され ませ ん 。 

そこ で 、 ポ ッ プ アッ プ メ ニュ ー が 表示 され る 前 に 、 こ の 「 編 集 ] メニ ュー を 有効 
(使用 可能 ) 状態 に し て お きま す 。 


エエ 己 u い 上 上 on = 2 Then 
TDMEQ ェ ュ it .Enab1ed = エエ ue 





第 日 5 時 限 目 メニ ュー を 使 





IlH 





[編集 | メニ ュー の 使用 状態 を 有効 に し た ら 、PopupMenu メ ソ ッ ド を 使っ て [ 編 


集 ] メニ ュー を 表示 させ ます 。 メ ニュ ー が ポッ プア ッ プ し た ら 、 再 び [ 編 集 ] メニ 
ュー を 使用 不可 状 態 に 設定 し ます 。 


これ で 、 フ ォ ー ム の メニ ュー に な い メ ニュ ー 項 目 を 、 ポ ッ プ アッ プ メ ニュ ー で 表 


示す る こと が で きま す 。 


PopupMenu TDMEQ ュ Et , ゞ で bPopupMenuR1 す hu 上 の 
TDMEQ ェ ュ it . 正 nab1ed = Fa1lse 





メニ ュー の 表示 が 完成 し た ら 、 メ ニュ ー に 対応 し た イベ ント プロ シー ジャ を 作成 
に ま 洗 。 

[コビー] メニ ュー が 選択 され た と き の 処 理 は 、 こ こ で は メッ セー ジ の 表示 に と ど 
め て いま す 。 


P エ ュ ゞ a モ 上 @G Sub TDMCopy_ C1icK ( ) 
MsgBox "メニ ュー が 選択 され まし た 
End Sub 


Form2 の [終了] メニ ュー は 、Form2 自身 を 終了 させ て 、 操 作 を Form1 に 戻す 必 
要 が あり ます 。 で すか ら End ステ ー ト メン ト で プロ グラ ム を 終了 さき せる の で は な く 、 
Unload ステ ー ト メン ト で フォ ー ム を メモ リ か ら 削 除 (解放 ) する こと で 、Form2 を 
終了 させ ます 。 

プロ グラ ム 自 身 の 終 了 は 、Form2 を 閉じ た あと で 、Form1 の [終了 ] メニ ュー で 
行い ます 。 


P エ ュ ゞ で a@ Sub TDMEx ュ 1 ヒ 上 C1icK( ) 
Unload Form2 
End Sub 


【Unload ステ ー ト メン ト の 書式 】 
Un1oad Ob]@eGc 


ob ec アン ロー ド す る オブ ジェ クト 名 また は コン トロ ー ル 名 








Lesson17 状況 感知 型 メ ニュ ー を 作成 す 


メニ ュー の 設定 ・ 操 作 は 、 あ くま で も ユー ザー が 使い や すい ) 形 で 作成 する の が 、 一 
番 で し ょ う 。 わ か りや すい ユー ザー イン ター フェ イス と 操作 性 は 、 プ ログ ラム の 質 を 
決め る と いっ て も 過言 で は あり ませ ん 。 

また 、Show メソ ッ ド を 使っ た フォ ー ム の 表示 は 、 ダ イア ログ ボッ クス の 表示 で よ 
くん 本 テクニ ッ ツ で す 。 


の 表示 用 メニ ュー 頂 目 「 こ の プロ グラ ム に つい て 」 を 追加 し て 、Form ら 


〇 1 「Lesson17.vbDp] の プロ グラ ム の ポッ プア ッ プ メニ ュー に 、Form ら 
だ お 5K す る よう に し て くだ さも し)。 


Form2 を 、 イ メー ジコ ント ロー ル や ラベ ルコ ント ロー ル を 使っ て 、 き 
れい な ダイ アロ グ ボ ックス に 仕上 げ て くだ さい 。 
また 、 メ ニュ ー は すべ て 削除 し 、[OK] ボタ ン を 作成 し て この ボタ ン 
で Form ら を 閉じ る よう に し て くだ さい 。 


Harka Seto 1998 Le Il 
解答 は 巻末 に 一 


PopupMenu で 表示 で きる の は 、1 つの トッ プレ ベル メニ ュー だ け で す 。 で すか ら 、 
いろ いろ な メニ ュー を 組み 込み た い 場 合 は 、Form2o の [編集 ] メニ ュー の よう に 、 ポ 
ッ プ アッ プ メ ニュ ー 専 用 の メニ ュー を 作成 し て お き 、 フ ォ ー ム で は 非 表 示 に し て お いて 、 
ポッ プア ッ プ 時 に 表示 させ る よう に する と いい で し ょ よう 。 








第 日 5 時 限 目 メニ ュー を 使 に 





条件 分 岐 に つい て 


条件 に よっ て 、 プ ログ ラム の 処理 を 分 ける に は 、IfE ス テー トメ ント を 使う の が 最も わか りや 
すく 簡単 で す 。 If ステ ー ト メン ト に は 以下 の 3 種類 が あり ます 。 


①lf.…Then ステ ー ト メン ト 


rf 条件 1 mhen 
処理 1 


End エモ 
失 件 1 が 真 な ら ば 処理 1 が 実行 され ます 。 簡単 な 条件 で 分 岐 さ きせ る と き に 使用 し ます 。 


② If...Then..….Else ステ ー ト メン ト 


rE 条件 1 rhen 
処理 1 
1se 
処理 2 


End エモ 


和泉 件 1 が 真 な ら ば 処理 1 が 実行 きれ ます 。 偽 な ら ば 処理 2 が 実行 きま れ ます 。2 つ の 条件 で 分 岐 
させ る と き に 使用 し ます 。 


③ lf..….Then.…Elself ステ ー ト メン ト 


rE 和楽 件 1 rhen 
処理 1 

ElserE 条件 2 rhen 
処理 2 

El1serE 和 朱 件 3 rhen 
処理 3 

1s@e 
処理 4 

End エモ 


3 つ 以 上 の 条件 で 分 岐 き す せ た いと き は 、Elserf ス テー トメ ント を 使用 し ます 。FElself の 後に 条 
件 式 を 追加 する こと が で きま す 。 

た だ し 、3 つ 以上 の 多い 分 岐 に な っ て くる と 、 ス テー トメ ント を 使う より 、Select Case ステ 
ー ト メン ト を 使う 方 が 自然 で す 。Select Case ス テー トメ ント は Lesson20 で 解説 し て いま す 。 














所 当 2 則 (LesSon18 一 Lesson ら 1 ) 
コン トロ ー ル の 
連携 と 動作 















これ まで の レッ スン で 、 コ ント ロー ル と プロ バテ ィ の 使い 方 を マス ター し まし た 。 


ラ 度 は 、 更 に いろ いろ な コン トロール を 使い 、 ま た コン トロ ー ル 同士 で プロ パテ ィ 
を 操作 し な が ら 、 プ ログ ラム を 組み 立て て いく テク ニッ ク を マス ター し まし ょ う 。 


ほとん どの 場合 、 プ ログ ラム を 作成 する と き は 複数 の コン トロ ー ル を 組み 合わ せ て 
ユー ザー イン ター フェ イス を 作成 し ます 。 ま た 、 い くつ か の コン トロ ー ル は 、 デ ー 
タ の 入力 操作 を 軽減 し て くれ ます 。 

ここ で は 、 主 に アニ メー ショ ン を 表示 する プロ グラ ム を 例 に 取り 、 こ れ ら の コン ト 
ロー ル の 使い 方 を 説明 し て いき ます 。 

之 日 の レッ スン で 解説 する 項目 

ロタ イマ ー コ ント ロー ル を 使っ た アニ メー ショ ン の テク ニッ ク 
ココ グラフィック 付き の コマ ンド ボタ ン で ツー ル バ ー を 作成 

ココ コントロール と フォ ー ム を 組み 合わ せ て 使う テク ニッ ク 

ココ スクロール バー の 使い 方 

コテ キス ト ボ ックス コン トロ ー ル の 使い 方 

ロロ ツー ル チ ッ プ を コン トロ ー ル に 設定 する 方 法 

コロ チェッ クボ ックス コン トロ ー ル の 使い 方 

コリ スト ボッ クス コン トロ ー ル の 使い 方 

コリ スト ボッ クス に リス ト 項 目 を 追加 し た り 削 除 す る テク ニッ ク 














HHHEH 
HHH TH 


第 4 日 
1 時 限 目 


se Lesson18.vDp 
6 VB6CD 


= Lesson18 


うお 3 





ファ イル F) 





アニ メー ショ ン 表 示 プ ログ ラム 
タイ マー コン トロ ー ル を 使っ た アニ メー ショ ン の テク ニッ ク を 覚え ま 


す 。 ま た 、 グ ラフ ィ ッ ク 付 き の コ マン ド ボ タ ン で ツー ル バ ー を 作成 し ま 
す 。 


ラ 回 作成 する プロ グラ ム 





下 、 ゲ デー メー ショ ン 


| 3 つの ボタ ン を 
| ヘン クリ ッ ク す る と …… 





アニ メー ショ ン が 一 時 
停止 、 開 始 、 終 了 す る 


[設定 ]」 を クリ ッ ク 





すみ た … 
『 5m ピ 
速度 を 指定 する ダイ ア 
(< HOOmsi ログ が 表示 され る 
Y 3hHms 
開 じ ろ | 
Emi 


この プロ グラ ム は 、 タ タイマー コン トロ ー ル を 使っ て 、 イ メー ジコ 
ント ロー ル に 複数 の ビッ トマ ッ プ を 表示 し 、 ア ニメーション 効果 を 
出す プロ グラ ム で す 。 

また 、 コ マン ド ボ タ ン を ツール バー 風 に 仕上 げ 、 ダ イア ログ ボッ 
ンス を 使っ つて アニ メー ショ ン の 表示 速度 を 変更 で きる よう に し ます 。 


LeSSOn18 アニ メー ショ ン 表 示 プ ログ ラム 






ンク トロ 一 ルル. と フロ は チチ ィ の お た 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 付録 CD-ROM の 
[LesSon18」 フォ ル ダ に 収録 され て いる すべ て の アイ コン ファ イ 
ル (.ico) と ビッ トマ ッ プ ファ イル (.bmp) を 、 使 用 し て いる プロ 
ジェ クト と 同じ フォ ル ダ に コピ ー し て くだ さい 。 


プロ バテ ィ ワ ウィ イィ インド の 4 條 mitent プロ バディ の 
値 を 「 ア ニメーション 」 に 変更 する 





|Form1 Form 』 | 
宇 1 本 | 項目 別 | | 
(オイ ジェ ウト Form 1] ょ 1 









必 ロ ロコ コロ ご 1 5 

uto Radrawy ョ |== 1 EE に こ な プ フル クリ ッ ク 
BackColcr | | &H8HHHHHnF& 

BordsrSty| ょ 2 - 可 宏 





[標準 ] ツー ル バ ー の [メニ ュー エディ タ ] ・ 還 | を ク 
アッ ク し 、 メ ニュ ー エ ディ タ で 次 の メニ ュー を 設定 する 


キャ プシ ョ ン Fi 
| 加 | eveseg 








キャ t フ や ョ ツ (P) | 訟 定 


OK | 
名 前 (Mi) llpMSst キャ ッ セ ル | 
ラウ 26 の. | ショ ー ト ルッ ト ⑤) (ない) ・| 
^ 上 ルプ" ヤ テ キス メト 番 号 (H jn ネ ゴ ッ エート 位置 〈O* lo - な し ・| 
「 お -z0C) レ 有効 E レ 表示 め ) 「 ウイ トウ リ メ ト の 


IP 





の 
ペタ メー ュー の 設定 
メニ ュー を 設定 する 方 法 
に つい て は 、Lesson13 を 
参照 し て くだ さい 。 


Ne | 設定 .…」 
NN の Ss ミー ーー 
メニ ュー 項目 名 の 最後 に 
ある |.…」 の 記号 は 、 そ の 
メニ ュー を 選択 する と 何 
ら か の ダイ アロ グ が 表示 
され る ユー ザー に 示す も 
の で す 。 


第 4 日 1 時 限 目 コン トロ ー ル の 連携 と 動作 





ツー ルポ ボッ クス の [Line] を クリ ッ ク し 、 ラ イン コン 
トロ ー ル を フォ ー ム 上 の メニ ュー の 下 に 配置 する 





つう 





1 
イル ME 編集 表示 G) 2n ツ ェ ト P) 書式 6) デパ ッ XD) 実行 CE 
度 ・a・F 必 回 gs 。 人 5 


ま 人 こ あ 8 記 








m 間 | ここ を クリ ッ ク 


に て っ クト チャ リグ 
その まま ここ まで 
ドラ ッ グ 


プロ バテ ィ ウ ィ ン ド ウ で [BorderColor] プロ パテ ィ 
の 色 を [ボタン の 影 ] に 変更 する 


ぐ プ 直線 を 引く 


Shift キ ー を 押し な が ら ド 
ラッ グ す る と 、 直 線 を 引 
こと が で きま すず す 。 








と - 

この 操作 を 行う 前 に 、 作 

左 し た ライ ンコ ント ロー を 
1 < テ まま 当 生 呈 是 3 

ル が 選択 され て いる こと | 

を 確認 し て くだ さい 。 | Line1 Irire 

| 全体 項目 中 | 

| ト 名 ) Lina1 


Es ャ ャ ー 








m 導 | ここ を クリ ッ ク 
の 用 | ここ を クリ ッ ク 
工 久 | ここ を クリ ッ ク 


2 時 | ここ を クリ ッ ク 















| Bordsr 
「 DrawM 
ndex 








強調 表示 され た 文字 列 
邊 の 表面 
| 7 生生 志 ど 
| に に Pa 還 淡色 表示 され た 
較 ホッ の 文字 
回 非 7 り テ タイ トル が ー の 文字 
三 ゴ 日 の 強調 表示 

還 9 の 影 ( 光 

5 の 時 2 (: 光 


- 
| Borderi ルッ トー ジス テム | 








| Tag 








1 人 0 





LeSSOn18 アニ メー 


ラフ ライン が 選択 され た 状態 で 、[ 標 準 ] ツー ル バ ー の 
[コピ ー] と [貼り 付け ] ボタ ン を 順に クリ ッ ク す る 


ドコ ピー] を クリ ッ ク 
[貼り 付け ] を クリ ッ ク 





に IF] 還 = た 1- ゴ = 全 旨 前 月 


表 志 W | の 書式 Q デル ッ 








商 。 Project1 一 icrosoft 


27fMFE) 編 休 人 E) 








| コン トロ ー ル 配列 に し ます か ? 」 と いう メッ セー ジ 
が 表示 され る の で [はい] を クリ ッ ク す る 





[は い ] を クリ ッ ク 





PE ル (P) 当 度 


プロ バテ ィ ウ ィ ン ド ウ で [BorderColorl プロ パテ ィ 
の 色 を [ボタン の 強調 表示 ] に 変更 する 


m 導 | ここ を クリ ッ ク 

























Line1 (UL I 帳 ら 
信人 | 項目 別 | 

2 記 5 
(わが: 剖 下 名) Lina1 el] 用 | ここ を クリ ッ ク 
っ 引 

Border: 開 


工 久 | ここ を クリ ッ ク 
















eisn 中 六 色 表 震 され た 文字 
Tae 較 率 の の 文字 Ja 
ー ー の ぴの) 
ザ ほ |e ka ん 1 ここ な を ン リ ッ ク 
へ | に ト の e 
パー 日 ボ 和 の 祖 G 交 


較 リール トッ ント の 文字 


お 日 ゆー ルト ッ ト 


第 4 日 


さや 


ショ ン 表 示 プ ログ ラム 





| コント ロール 本 


同じ 名 前 と 同じ デー タ 下 ナ 
を 持つ コン トロ ー ル の 集 
合 で す 。 コ ント ロー ル を 
追加 する と き に コン トロ 
ー ル 配列 を 使う と 、 複 数 
の コン トロ ー ル を フォ ー 
ム に 追加 する と き に 比べ 
て 、 リ ソー ス の 消費 を 抑 
た あご こと が で きま す 。 


く ぐ を ライ ン の 目安 
ライ ン の 配置 が うま く 行 
か な いと き は 以下 の 数 値 
を 参考 に プロ パテ ィ ウ イィ 
ンド ウ で 設定 し ます 。 
左 か ら ーX1/X2/Y1/Y2 


Line0・・0/5100/0/0 
Linel・・0/5100/15/15 
Line2・・ 0/5100/650/650 
Line3・・0/5100/665/665 


1 時 限 目 コン トロ ー ル の 連携 と 動作 





ヽ 細か く 移 動 する 
[ツー ル | メニ ュー の 「 オ 
プシ ョ ン ] を 選択 し 、[ 全 | 
まほ ダ タプ で {| グ リッド に ams 

合わ せる ] チェ ッ ク ボ ポッ 31 下 村 EE 
クス を オフ に し ます 


| OO ね わずか に トド ラッツ 


編集 | エディ の 設定 全 明 | ドッ キッ ゲ | 環境 | 


[| ホ タン の 強調 表示 ] の 色 に 設定 し た ライ ン を 下方 向 
に 移動 する 








り リ ッ ト の 融 定 ェ ラ テー トラ 
| 279 引 の 表示 、) 1 う = 
< 55 ぇ 

2 サッ ト 昔 仁 wp 


て ェ テ 


間 > 


ヤバ イル 


hh 0 。 つの ライ ン を 囲 の よう に ドラ ッ グ し て 選択 する 





じ レ の の 4 


テコ Wg 






ここ を クリ ッ ク 


その まま ご こと まで 
ドラ ッ グ 





Je 方 向 キー ー で コン ト ファ イル CE) ' ea 呈 語 EE 
2 ロー ル を 移動 。 | 生 


コン トロ ー ル を 選択 し 

Ctrl キー を 押し な が ら 方 向 
キー ( つ 。、 テ と 、 1 、}) 
を 押す と 、 グ リッ ド 間 隔 
に 沿っ て 上 下 左 右 に 少し 








づつ 移動 きせ る こと が で 上 1 ーー 

きま す 。 選択 し た ライ ン を 複製 し 、 下 方 向 に 移動 する 
\ ジ ライ ン の 複製 ファ イル 吉 

ライ ン を コピ ー す る に は 、 





手順 5 と 同じ よう に [標準 ] | = Y mn 一 年 旧 に こま で ドラ ッ グ 
ツー ル バ ー の [コピー] ' 

ボタ ン と [貼り 付け ] ボ 

タン を 使い ます 。 


ツー ル ボ ックス の [CommandButton] 一! を ク 
リッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 








全う 
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de て 
の 値 を 削除 する 震 択 


この 操作 を 行う 前 に 、 作 


』 プロ バテ ィ ウ ィ ン ド ウ で Caption] プロ パテ ィ 


cars ニー 成 し た コマ ンド ボタ ンコ 


Command1 に ommandBiutton yi ント ロー ル が 選択 され て 





全体 | 項目 呈 | いる こと を 確認 し て くだ 









コッ ジェッ ト 和 名 ) 


ここ を ダブ ルク リッ ク “ぐい < 
Del キー を 押す 


必 ロ D ロ = ョ コロ どら 1 - 3D 
le] プロ パテ ィ の 値 を [1 - グラ フィ * 
[Style] プロ バテ ィ の 値 を [1 - グラ フィ ックス ] マダ アン 


BackColcr | | &H8HHH0F& 
に 変更 する 
[Style] プロ パテ ィ の セル 


ーーーーーー ニ ーーーーーーーーーーー を ダブ プ ブルク リック し て 、 
Command1 に ommandButton | 1 ここ を ク リ ッ ク [0 標準 ] と [1 一 グラ フ 
全体 | 項目 制 | ィ ッ クス ] を 切り 替え る 
| こと も で きま きす 
Picture 11v = 
の | ここ を クリ ッ ク 
Style 
工 久 | ここ を クリ ッ ク 
[Stop.ico」 の 


TablIndsx 
TabStop 
IPicture] プロ バテ ィ に 「Stop.ico] ファ イル ' D 
和 を 設定 する く プ 保存 場 所 
ーー で [ファ イル の 場所 ] ボッ ク 


本 2 ス で 、 こ の レッ スン を は 


|ICommand1 に ommandButton > ニー 
9 じ め る 前 に アイ コン ファ 
| 1 
王 1 本 | 項 上 ここ を クリ ッ ク イル を コピ ー し た フォ ル 
] ダ を 指定 し て くだ さい 。 
し ーッ ン ラン ン 

























n - 既定 値 
U ー な し 
(な し 












anirmeGbmp 


|Stop.ico」 を 選択 


[開く 」 を クリ ッ ク 


ゲイ コン が 表示 され る 





第 4 日 1 時 限 目 コン トロ ー ル の 連携 と 動作 


』 人 うろ 


っ 人 F 成 し た ボタ ン を 
ヽ 抑 える に は 

ボタ ン の 大 き さ や 位置 を 
捕え た いと き は [書式 ] 
メニ ュー の [整列 ] や 
[同じ サイ ズ に 揃え る ] を 
使い ます 。 


本 全 


1G 


』 日 『 し 区 : | ーー 剖 ロ 


Command 1 


[( オ ブ ジ ェクト 名 )] プロ バテ ィ の 値 を 
|StopBtn」 に 変更 する 


「Ti に Im 1 









m 導 | ここ を ダブ ルク リッ ク 


omimiardButton 





、 全 体 | 項 明 !| 


の Py と つう 


必 D ロ = ョ コロ ご 
BackColor 





「・ ュ ロー | 


』 









StopBtn 
1 - 3D 
| | &H8HHHInnF& 





用 | [StopBtn」 と 入力 





手順 1 の ーー 16 を 繰り 返し 、 次 の 設定 で ボタ ン 
を ら つ 追加 する 


設定 する プロ バテ ィ スタ ー ト ボタ ン 終了 ポタ ン 


グラ シィ ックス = 分 フィ ックス 


\ 









(オプ ジェ クト 名) 







( じ Command ど ) ( じ Command3) 









ズ スタ ダート ボタン 


ド 終了 ボタ ン 


ツー ル ボ ックス の [Image] を クリ ッ ク し 、 
フォ ー ム 上 に イメ ー ジ コン トロール を 配置 する 


と てこ を クン リ ッ ク 


その まま ここ まで 


ドラ ッ プ グ 


LeSSOn18 アニ メー 


や 


ショ ン 表 示 プ ログ ラム 





プロ バテ ィ ウ ィ ン ド ウ で [Picture] プロ パテ ィ 
に |Anime 1 .Dmp」 を 設定 する 





1 ツ 


、 
ファ イル (F) 


eioxl_ 





謗 自 し た 画像 が 表示 され る 





アイ | ツー ル ボ ックス の [Label] 人 へ を クリ ッ ク し 、 
フォ ー ム 上 に ラベ ルコ ント ロー ル を 配置 する 






ファ イ ルル (F) 


SIGlx 


者 a 
プロ バテ ィ ウ ィ ン ド ウ で [BorderStyle] プロ パ 


み ティ の 値 を [1 - 実 線 ] に 設定 する 


PMIDZEE 当 FI < ェ | 
lm 導 | ここ を クリ ッ ク 


ンジ 








Lalkeit Labei 







全体 | 項目 別 | 

BackColor [| &H8nnnnnnF& < アン ここ を クリ ッ ク 
Back ご tl 1 - 本 っ: 系 B 旧 

ev ー 1 - 実線 ェ ト | 

Caption Labsl1 | 葉 久 | ここ を クリ ッ ク 
D ョ t ョ F je 


ロ ョ t ョ F cr m ョ t 
DatalM=mbsr 


中 ョ ご OurC ら 喘 


第 人 4 日 1 時 限 目 コン トロ ー ル の 連携 と 動作 


導 Anime 1.Dmp の 
ペン 設 生 


[Picture] プロ パテ ィ を 設 
定 する 方 法 に つい て は 、 
手順 15 を 参考 に し て くだ 
さい 。 


< 


ヽ デ ラベ ル を 選択 
この 操作 を 行う 前 に 、 作 
成 し た ラベ ルコ ント ロー 
ル が 選択 きれ て いる こと 
を 確認 し て くだ さい 。 

| BorderStyle] プロ パテ 
ィ を ダ プ ルク リッ ク し て 、 
[0- なし] と [1- 実線 ] 
を 切り 替え る こと も で き 
ます ます 。 


』 全 る 


Z ロー ル の サイ ズ 


タイ マー コン トロ ー ル の 
サイ ズ は あら か じ め 決 ま 
oo モ い ます 。 大 きく ドラ 
ッ グ し て も タイ マー の サ 
イズ は 変わ り ま せん 。 


ぐ き フォ ー ム の 追加 
フォ ー ム を 追加 する に は 、 
標準 ] ツー ル バ ー の [ フ 
ォ ー ム モジ ュー ル の 追加 ] 
ボタ ン を 使い ます 。 詳し 
ゅ い 手 順に つい て は 、 
Lesson17 の 手順 3 と 4 を 参 
有 し て くだ さい 。 
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[Caption] プロ バテ ィ の 値 を 「 ア ニメーション 
プロ グラ ム 」 に 変更 する 





アン 





DD 


| Label1 Labsl ー | 


全 1 本 | 項目 中 | 











>|| 





避 uto ご に ら 











| &HBH0nnnnF& 


こ を ダラ プラ ル クリ リッ ツク 
1 - 天 B 回 
1 - 実線 
アニ メー ショ ンプ ログ ラム ュー ル 4 値 を 入力 


BackColor 
BackStyla 


BorderStyls 









み 


フォ ー ム 上 に タイ マー コン トロ ー ル を 配置 する 





訪 ツー ル ボ ックス の 【[Timer を クリ ッ ク し 、 





ピピ 


aa 『 P ー ペー ソ ヨ 8 


コ ァ イル (CF) 速度 


| 〇 | % 





ーー 話 / ラム 








SA ュー 斜め に ドラ ッ グ 


新しい フォ ー ム を 追加 し 、[Caption] プロ パテ 
ィ の 値 を | 表示 速度 の 設定 ] に 変更 する 





性 
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うろ 々 る ツー ル ボ ックス の [Frame] |! を 使っ て フレ ー 
ム を 追加 し 、[Caption] プロ パテ ィ の 値 を 変更 する 


ドラ ッ グ し て 

フレ ー ム を 作成 
[Caption] を 
| 速度 | に 変更 


ツー ル ボ ックス の [OptionButton] “を 使っ 
て 、 フ ォ ー ム 上 に オプ ショ ン ボ タン を 3 つ 配 置 す る 








み 


画 。 表示 速度 の 計 定  x| 






Y Optign1 
『 Option2 
= 





各 オ プシ ョ ン ボ タン の [Caption] と [( オ ブ ジ ェ 
クト 名 )] プロ パテ ィ を 次 の 値 に 変更 する 








コン トロ ー ル Caption オブ ジェ クト 名 


| 表示 速 度 の 設定 Ed | 









5hms 
< 1UHms 
内 ュ 本 
還 * Hm= L 剛 


第 4 日 1 時 限 目 コン トロ ー ル の 連携 と 動作 


人 7 


コマ ンド ボタ ン を 
選択 


この 操作 を 行う 前 に 、 作 


肖 し た コマ ンド ボタ ンコ 
ント ロー ル が 選択 され て 


いる こと を 確認 し て くだ 


さい 。 


の 2 
* 中 央 に 表示 する 


ト | フォ ー ム レイ アウ ト ] ウ 
ィ ン ド ウ で Form2 の 表示 
位置 を [オー ナー フォ ー 
ム の 中 央 ] に 設定 する と 、 
キー チー フォ ー ム で ある 
Form1 に 対し て 中 天 付 近 
に 表示 され ます 。 こ の よ 
うに 表示 させ る と より ダ 
イア ログ ボッ クス らし く 
な り ま す 。 


ン 手 軌 ( 細 ) 
ォ ー ナ ー フォ ー ム び 


馬 し ま 
悪 遇 の 中 太ら ) 0 
wmdows の 既定 値 ⑯) 





人 8 


ツー ル ボ ックス の [CommandButton] 一 を クリ 
ッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 


みお 


(* 1HHms 





7 3UHms 


に を プリ ッ ツ グ 
7 





み ひ の プロ バテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ 
の 値 を | 閉じ る 」 に 変更 する 


'(* 1 ロ Hms 





' 3HHms 






書 」 寺 
+ こ 直 を 変更 し た ボタ ン 


@|② 〇 





ニメーション ブロ ダラム 





速度 


5Hms 





e 1HHUms 


SHHms 
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| Projsct1 - Form1 (コー ト ) 


| (GeneraD) ( <| | wcaiiioese <| ] 


Dim TmgNo As Tnteger | 









ョ Form1:ExitBtn-Click 
Ex <| |ciick <| 
om ーッ 


PP エ ュ で a モ @ Sub 到 交 ふ モ 上 C1iok( ) 

























引 FOrm1:F0rm-Lord 
| 呈 Projsct1 - Form1 (ロー ト ) 「 
 P エ ュ で a モ 上 Sub Form TLoad ( ) ] 
| T エ mgNO = 1 

1mer1 . エロ ロモ 上 ら Ga = 100 

Sa エ 七 己 n . 下 nab1Led = Fa1se 
下 nd Sub 
紀 FO0rm1:IDMExit-Click 
| 129 癌 pm Pe ii 還 和 に 〔 | 
| IiDwExit <| [ciick ・| | 
_ P エ ュ a モ GSub TDMExx ユ 上 C11oCk( ) 
' EnQd 
_ 互 nd Sub 
引 F0rm1:IDMSet-Click 
| 開 Projsct1 - Form1 (コー ト ) 」 
Tipwsst <| |ciick >| 
P エ ュ ゞ で a 上 G Sub TDMSe C1ick( ) 

FoOrm2 。Shovw 1 
End Sub 





第 4 日 1 時 限 目 コン トロ ー ル の 連携 と 動 に 





還 Form1 :StartBtn-Click 





| 剛 Projsct1 - Form 


IStartBm <| |ciick <| 





ーー 








_ Private Sub Star 上 Btn C13iok( ) 


End Sub 








ョ Form1:StopBtn-Click 
OCSC 証 識 


| IStopBtn ・| |click | <| ] 


1mer1 Enab1ed = エエ ue 
Sa エキ 選 tn . 正 nabed = False 
SOp せ nn Enab1Led = FT エ u@G 


ーーー ーーーーm バ ーーーーーーー ーーー バーーーーー の ーーー ーー ンジ ーー ーーー ーー ペー ンー の ーーーーーー の ーーーーーーー 


Private Sub StopBtn C1ick( ) 


1imer1 Enab1ed = Fa1se 
Sa エ 七 巳 n 。 正 nab1ed = エエ ue 
S ヒ Op 己 n . 正 nab1ed = Fa1se 


正 nd Sub 


=Form1:Timer1-Timer 








| 開 Projsct1 - Form1 (ロート) 同 回 四 | 
| ITimer1 ・| ITimer て | | 


 P エ ュ ゞ a モ eG Sub Timer1 Timer() 


Dim BMP As Sin 
BMP = App.Pa 上 h & " 笠 an1me" & T エ mgNO & "。bmp" 
エエ FE TmgNo = 20 Then 

T エ mgNoO = 0O 


End TE 


T エ made 1 .P エ ご ヒュ u エ G = LoadP ュ ご C ヒ ue ( BMP ) 
T エ mdNO = T エ mgNO + 1 


End Su わ 


=Form2:(General)-(Declarations)  。 


| 開 Projsct1 - Form2 (ロート) 





| |(GeneraD ・| |(Declsrations) ・| | 


Dim Speed AS エ nEeGder 
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引 FOrm2:C0mmand1-Click 


[Commana1 <| [click <| 


P エ ュ ゞ で a モ Ee Sub Command1 C1icK ( ) 
FoOrm1 。 1mer1 . エロ モエ ら G エ Ya1 = Speed 
Unload Form2 

下 nd Sub 








ョ FO0rm2:FOorm-Load 
| 5 - Form2 (コー ト ) ] 


| IForm <| ILead ・| | 


ーー ペー ツー ツー ツーーーー ツー シーーーー ペ ペペ マー 


P ェ ュ で a 上 @ Sub Form Toad ( ) 
Speed = 100 
下 nd Sub 








_Fom2:0pton100-Clck 


| Projsct1 ー Fcrm2 (ロー 剖 





[optiontao <| [ciick <| 


テーーーーーー 


ペペ ーー ツー ツー ペ ーー ペペ ーーーーーーーーー…ーーーーーーー ヘ ーーーーー ーーーーーーーーーーーーー~ 


P エ ュ で a モ 上 Sub Option100 C1ick ( ) 
Speed = 100 
正 nd Sub 


= Form2:Option300-Click 


Projsct1 - Form2 (コー W 





Speed = 300 
正 nd Sub 


ョ Form2:0Option50-Click 
loption5p 。 | ciick <| 


P エ ュ ゞ で a モ @G Sub Option50 C1iock ( ) 
Speed = 50 
下 nd Su も 





第 4 日 1 時 限 目 コン トロ ー ル の 連携 と 動 に 








』 


ノ 








コー ド の 解説 の 前 に 、 タ イマ ー コ ント ロー ル に つい て 若干 説明 を し て お きま す 。 

タイ マー コン トロ ー ル は 、 設 定 し た 時 間 間 隔 で イベ ント を 発生 する コン トロ ー ル 
で す 。 IImntervall プロ パテ ィ に 、 ミ リ 秒 単位 で 設定 し た 時 間 が くる た びに 、[「 Timer」 
と いう イベ ント を 発生 し ます 。 た と えば 、[Intervall プロ パテ ィ に 「100ms」 を 設 
定 す る と 、0.1 秒 ご と に Timer イベ ント が 発生 し ます 。 こ の Timer イベ ント プロ シー 
ジャ に 処理 を 記述 し て お け ば 、0.1 秒 ご と に その 処理 が 実行 きれ ます 。 

タイ マー コン トロ ー ル は 、 ラ ベル コン トロ ー ル な ど と 人 違い 、 フ フォ ー ム に 配 還 じ て 
も 、 ブ ログ ラム 実行 時 は 表示 され ませ ん 。 


[Intervall プロ バテ ィ が 100ms の と き 






プロ グラ ム の 実行 開始 
ノブ) 100ms 後 
[Timerl イベ ント 発生 






「Timerl プロ シー ジャ の 実行 





さら に 100ms 後 


| Timer」 イベ ント 発生 [Timerl プロ シー ジャ の 実行 


Y 


以下 プロ グラ ム 終 了 ま で 継続 


②③ 


この プロ グラ ム は 、 タ イマ ー コ ント ロー ル を 使っ て 、 フ ォ ー ム に 配置 し た イメ ー 
ジコ ント ロー ル で 表示 する イメ ー ジ を 、。100ms ご と に 入れ 其 え る こと に よ た oe て Cs。 ア 
ニメーション 効 此 を 作る プロ グラ ム で す 。 ア ニメーション は 、 合 計 20 枚 の ビッ トマ 
ッ プ ファ イル を 連続 表示 する こと で 行い ます 。 そ し て 、 コ マン ド ボ タ ン を 使っ て 、 
この イメ ー ジ の アニ メー ショ ン を 停止 きせ た り 再 開き せ た り し ます 。 また 。 ダ イア 
ログ ボッ クス を 使っ て 、 ア ニメーション の 表示 速度 を 変更 し ます 。 
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今 タイ マー コン トロ ー ル を 使う 場合 は 、 最 初 に [Intervall プロ パテ ィ に タイ マー 
コン トロ ー ル の 動作 間隔 を 設定 し ます 。 
プロ グラ ム デ ザイ ン 時 に 、 プ ロ パ ティ ウィ ンド ウ で 設定 し て も か まい ませ ん し 、 
プロ グラ ム 実 行 時 で あれ ば 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 設定 し て も か 
まい ませ ん 。 設定 する 値 は 、 ミ リ 秒 (ms) 単位 の 時 間 に な り ま す 。 
タイ マー が 動作 し た と き の 処 理 は 、 タ イマ ー コ ント ロー ル の Timer イベ ント プロ 
シー ジャ に 記述 し ます 。 


2。。 で は 、 順 を 追っ て コー ド を 説明 し て いき まし ょ う 。 ま ず 、Form1 の コー ドウ ィ ン 
ドウ を 開き ます 。 宣言 セク ショ ン [Generall 「Declarations] に 、 モ ジュ ー ル レベ 
ル 変 数 |ImgNo」 を 宣言 し ます 。 こ の 変数 は 、 イ メー ジコ ント ロー ル に 表示 する ビ 
ッ ト マ ッ プ ファ イル 名 を 作成 する の に 使用 し ます 。 


Dim エ mqgNO AS エ n 上 Gd@Gr 


人 次 に 、 フ ォ ー ム の 初期 化 プ ブロ シー ジャ 「Load] に 、 こ の 変数 の 初期 値 を 設定 し ま 
す 。 ビ ッ ト マ ッ プ ファ イル 名 は 「animel.bmp」 と 1 か ら 始 まっ て いま す の で 、「1」 
を 代入 し ます 。 


T エ mgNO 1 


そし て 、 タ イマ ー コ ント ロー ル の [Imtervall プロ パテ ィ を 「100」 (100ms) に 設 
定 し ます 。 こ れ で 、 タ イマ ー コ ント ロー ル の Timer イベ ント は 、0.1 秒 単 位 で 発生 し 
ます 。 


tmer1 。. エロ モエ e ェ Va = 100 


また 、 フ ォ ー ム に 配置 し た |StartBtm」 ボタ ン を 無効 に する 処置 を し て お きま す 。 
この ボタ ン は 、 ア ニメーション が 停止 し た と きのみ 有効 に な る ボタ ン に し て お きま 
す 。 


S ヒ a 了 エキ 選 上 mn .EEnabLed = Fa1lse 


この よう に 、 状 況 に 応じ て ボタ ン の 有効 ・ 無 効 を 切り 替え て 使う に は 、[Enabled」 
プロ パテ ィ を 使用 し ます 。 


P エ ュ ゞ a モ @G Sub Form Load ( ) 
T エ mgNoO = 1 
1mer1 . エ ロモ GrYa1 = 100 
Sa エ 七 選 n . 下 nabed = Fa1se 
End Sub 
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に 








QG 








タイ マー コン トロ ー ル の [Intervall プロ パテ ィ に 値 が セッ トミ され る と 、 タ イマ 
ー コ ント ロー ル は 動作 を 始め ます 。 そ し て 、 こ の [Intervall に 設定 され た 時 間 が 
くる と (この プロ グラ ム で は 0.1 秒 ご と に )、Timer イベ ント プロ シー ジャ が 呼び 出 
さき 乏 ま す 。 

Timer イ ベン ト プ ロ シー ジャ で は 、 呼 び 出 きれ る た びに ビッ トマ ッ プ ファ イル を 、 
順番 に 読み 込ん で 表示 し て いき ます 。20 枚 の ビッ トマ ッ プ ファ イル が 、0.1 秒 ご と に 
読み 込ま れる の で す 。 こ れ で 、 ユ ー ザ ー の 目 に は イメ ー ジ が アニ メー ショ ン し て い 
る よう に 見 える わけ で す 。 


まず 、 イ メー ジコ ント ロー ル に セッ ト す る ビッ トマ ッ プ ファ イル の ファ イル 名 を 
作成 し ます 。 ビ ッ ト マ ッ プ ファ イル の 名 前 は 、 す べ て 「animeXX.bmp」 と 、 文 字 
|「anime] と 「XX| と いう 数 字 を 組み 合わ せ て 作成 し て あり ます 。 そこで 、 文 字 
| anime」 と 変数 「ImgNo」、 そ し て 拡張 子 「.bmp」 を 使っ て 、 フ ァイル 名 を 作成 し 
ます 

ファ イル を 参照 する た め に は さら に 「 パ ス 」| が 必要 な の で す が 、 こ こ で は 完全 に 
パス 名 を 記述 する か わり に 、「 相対 参照 | を 使っ て より 扱い や すく し て み ま す (ファ 
イル の 参照 に つい て は 「 第 5 日 ファ イル を 操作 する 」 で 詳し く 解 説 し ます )。 

プロ グラ ム 実 行 中 の 現在 の パス 名 は [App] オブ ジェ クト の 【[Path] プロ パテ ィ 
を 使っ て 取得 し ます 。 こ の [Path] プロ パテ ィ は 、 プ ログ ラム の 実行 中 の み 値 が 取 
待 可 能 で す 。 

例え ば |「Program Files| フォ ル ダ の 中 に 実行 中 の プロ ジェ クト が ある と する と 、 
これ で 取得 され る パス 名 は 、「C:\Program Files| と いう 文字 列 に な り ま す 。 こ の 
た め 実 際 に ファ イル 名 の 参照 に 使用 する と き は 、 パ ス 名 と ファ イル 名 を 、 デ ィ レ ク 
トリ の 区 切り 文字 |「\] で つなぎ ます (| 補 " & "anime"| と 書い て も か まい ませ ん )。 

これ で 、 現 在 作業 中 の プロ ジェ クト ファ イル が ある フォ ル ダ の 「animeXX | ビッ 
トマ ッ プ ファ イル を 参照 する こと が で きる よう に な り ま す 。 あ と は 、 作成 し た ファ 
イル 名 を 変数 |BMP」 に 格納 し ます 。 


Dim BMP As Str ェ ing 
BMP = ADp.Path & " ぎ am1me" & T エ mgNo & ".bmp" 


現在 の パス 名 | ファ イル 名 
ディ レク トリ の 区 切り 文字 " き " 


ファ イル 名 が で きた ら 、LoadPicture 関数 で イメ ー ジ コン トロ ー ル の [Picture] 
プロ パテ ィ に 設定 し ます が 、 そ の 前 に 繰り 返し ビッ トマ ッ プ を 表示 する た め の 処 置 
し 宙 お きま す 。 


エ E TmgNo = 20 Then 
T エ mgNo = 0 
EnQd エモ 
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この 処置 は 、 フ ァイル 名 が |anime20.bmp」 まで きた ら 、|animel.bmp」 に 戻す 
処置 で 、 変 数 ImgNo の 値 が 20 に な っ た ら 0 を 入れ 直し て いま す 。 後 の 処理 で 1 を 追 
加 す る の で ここ で は 0 を 入力 する こと に 注意 し て くだ さい 。 これ で 、|anime1l.bmp」 
か ら |「anime20.bmp」 まで の イメ ー ジ ファ イル を 繰り 返し 再生 する こと が で きま す 。 


実際 に イメ ー ジ コン トロ ー ル に ビッ トマ ッ プ を 表示 する に は 、 イ メー ジコ ント ロ 
ー ル の [Picture] プロ パテ ィ に ファ イル 名 を 設定 する の で す が 、 そ れ に は 直接 ファ 
イル 名 を 代入 する の で は な く 、LoadPicture 関数 を 使っ て 代入 し ます 。 





T エ made 1 . ピエ ご 上 いと エ G = LOadP1C ヒ u エ @G ( BMP ) 
T エ mgNO = T エ mgNO + 1 


これ で 0.1 秒 ご と に ビッ トマ ッ プ が 1 枚 ず つ 読 み 込ま れ 、 表 示さ きれ て いき ます 。 


人 0)” アニ メー ショ ン 処 理 が で きた ら 、 次 に コマ ンド ボタ ン の 処理 を 作成 し ます 。 
まず 、[StopBtn] ボタ ン で す が 、 こ の ボタ ン は タイ マー コン トロ ー ル を 一 旦 停 止 
させ ます 。 タ イマ ー コ ント ロー ル の 動作 を 決め る の は 、[Enabled」 プロ パテ ィ で す 。 
[True」 で 動作 、「False」 で 停止 し ます 。 
また 、 タ イマ ー が スト ッ プ し た ら 、StartBtnm ボタ ン を 有効 に し 、 再 スタ ー ト に 備 
えま す 。 そ し て 、 す で に タイ マー が 停止 し て いま すか ら 、StopBtn ボタ ン 自 身 を 無 
効 に し て お きま す 。 


P ェ ュ ゞ で a モ ee Sub StopBEn C11icK( ) 
imer1 Enab1ed = Fa1lse 
Sa エ 七 巨 上 m . 正 nab1ed = エエ uG 
StOp 己 tn . 正 nab1ed = False 


正 nd Sub 
StOpBtn ボタ ン 


凡 上 StartBm ボ タン が 押さ れ た と き は 、 今 度 は 逆 の 処理 を し ます 。 
タイ マー コン トロ ー ル の [Enabled] プロ パテ ィ を True に 設定 し 、Timer を オン 
に し ます 。 ま た 、 す で に StartBtn ボタ ン が 押さ れ て いる の で 、StartBtn ボタ ン を 和 無 
効 に し StopBtn ボタ ン を 有効 に し ます 。 





P エ ュ ゞ で a@G Sub 8S ヒ ar 上 BEn C1]1CKk ( ) 
ュ 1mer1 . 正 nab1ed = True 
Sa エ 七 巨 上 n . 正 nab1ed = Fa1se 
Stop 選 n . 正 nab1ed = FT エ uG 
End Sub 
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StgartBtn ボタ ン 


| みみ ExitBtn ボ タン は 、 す で に お な じみ に な っ た End ス テー トメ ント を 記述 し 、 プ ロ 
グラ ム を 終了 させ ます 。 






P エ ュ エ ゞ a ヒ @G SuDb 互 1 上 Bn C1iok( ) 
EnQd 
nd Sub 


ExitBtn ボタ ン 


人 久 [ファ イル ] メニ ュー に ある [終了] メニ ュー の プロ シー ジャ を 作成 し ます 。 こ れ 
も 、End ス テー トメ ント を 記述 する だ け で す 。 








P エ ュ で a モ @G Sub TDMEx1 ヒ 上 C1icCK( ) 
End 
End Sub 


[速度 | メニ ュー に ある [設定] メニ ュー の プロ シー ジャ で は 、 表 示 速 度 設定 用 の 
フォ ー ム IForm2] を 、Show メソッド を 使っ て 呼び 出し ます 。 こ の と き 、Form2 
が 閉じ な いと Form1 の 操作 が で き な い よう に 、「 モ ー ダ ル 」| で 表示 し ます 。 


Pr ュ ゞ a モ 上 e Sub TDMSet C1iock( ) 
FoOrm2 .Show 1 
End Sub 


今度 は 、 表 示 速 度 設 定 用 の フォ ー ム 「Form2| の プロ シー ジャ を 作成 し ます 。 

この フォ ー ム で は 、Forml1 に 配置 し た タイ マー コン トロ ー ル の Interval プロ パテ 
ィ を 、Form2 か ら 操 作 し ます 。 

実際 に は 、[ 閉 じ る ] ボタ ン を 押し た と き に 、[Intervall プロ パテ ィ に 値 を 設定 
する よう に し ます が 、 速 度 を いく つ に する の か は 、 オ プシ ョ ン ボ タン コン トロ ー ル 
で 行い ます 。 こ こ で は オプ ショ ン ボ タン か ら 渡 され て くる 変数 「Speed」 を 使っ て 、 
プロ パテ ィ の 設定 を 作成 し て お きま す 。 
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また 、Interval プ ロ パ ティ を 設定 し た ら 、Form2 は 必要 な く な り ま す の で 、 
Unload ステ ー ト メン ト で 閉じ ます 。 


P ェ ュ ゞ で a モ e Sub Command1 C11ok( ) 
Form1 。 Fmer1 . エロ モエ ら Ga11 = Speed 
Un1oad Form2 

End Sub 


@ Form2 か ら Form 1 の コン トロ ー ル を 操作 する と き 
Form1 。 呈 1mer1 。. エ ne ェ rva1 = Speed 
ーーーーーー イ ーーーーーーー 


ーーー 
Form 名 を コン トロ ー ル の 
追加 する プロ パテ ィ 名 





1 ⑬⑮ 変数 [Speed」 は 、 オ プシ ョ ン ボ タン コン トロ ー ル の イベ ント プロ シー ジャ で も 
値 の 代入 を する の で 、 モ ジュ ー ル レベ ル の 変数 と し て 、Form2 の 宣言 セク ショ ン に 
記述 し て お きま す 。 


Dim Speed AS エ nEeder 





時 / "オプ ショ ン ボ タン コン トロ ー ル は 、 複 数 を 配置 する と 、 そ の 中 で 必ず 1 つ し か 選 
が で き な い コン トロ ー ル で す 。 そし で 。 ユー ザー ボキ オプション ッ ン ポ ボカ ン を 選ぶ と 、 
Click イ ベン ト が 発生 し ます の で 、 そ の 処理 は 、Cliick イ ベン ト プ ロ シー ジャ に 記述 
し ます 。 | 

この プロ グラ ム で は 、 タ イマ ー コ ント ロー ル の 速度 を 選ん で も ら う の で 、 プ ロ シ 
ー ジ ャ で は 変数 |Speed」 に その ミリ 秒 を 代入 する 式 を 記述 し ます 。 ユ ー ザ ー が 、 
その 速度 の オプ ショ ン ボ タン を 選べ ば 、 変 数 Speed に 値 が 代入 きれ 、|[ 閉 じ る ] ボタ 
ン を 押し た 時 点 で 、Form1l の タイ マー コン トロ ー ル の [Imtervall プロ パテ ィ に 代 


ん き 未 ます 。 
P エ ュ ゞ で a モ G Sub Option100 C1iock ( ) 
Speed = 100 
End Su わ 


P エ ュ ゞ で a モ 上 G Sub Option300 C1icKk ( ) 
Speed = 300 
nd Su わ 
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Pr ュ ゞ ae Sub Option50 C1ck ( ) 
Speed = 50 
End Sub 






朋 付 最後 に 、 フ ォ ー ム の Load イ ベン ト プ ロ シー ジャ で 、[Intervall プロ パテ ィ に 
| 100] を 設定 し て お きま す 。 こ れ は 、Form2 の 起動 時 に 初期 値 を 設定 し て お く た め 
で す 。 


人 以上 で 、 プ ログ ラム は 完成 で す 。 実 際 に 動作 させ て くだ さい 。 ア ニメーション の 
速度 は 、 数 字 が 小さ けれ ば 遠 く 、 数 字 が 大 きけ れ ば 遅く 動作 し ます 。 


xp まとめ 


タイ マー コン トロ ー ル は 、 ア ニメーション 以外 に も いろ いろ な 使い 道 が 考え られ ま 
す 。 使 うつ 上 で の ポイ ント は 、 必 ず [Intervall プロ パテ ィ に 速度 を 設定 する こと と 、 
Timer イベ ント プロ シー ジャ で [Intervall プロ パテ ィ を 設定 する の で は な く 、 別 の 
プロ シー ジャ で 設定 する こと で す 。 

また 、 オ プシ ョ ン ボ タン コン トロ ー ル は 、Windows の アプ リケーション で も お な 
じみ の コン トロール で す 。 複 数 の 中 か ら ] つ だ け 選 択 さ せ た い 場合 に 使う と 有効 な コ 
ント ロー ル で す 。 


EE ラベ ルコ ント ロー ル を 使っ て 、 文 字 が フォ ー ム の 右 か ら 左 に 流れ て い 


く プ ログ ラム を 作成 し て くだ さい 。 


【 ヒ ント 】 
① フ ォ ー ム に 、Timer コン トロ ー ル と ラベ ルコ ント ロー ル を 配置 し ます 。 
② ラ ベル コン トロ ー ル の 表示 位置 は 、 上 下方 向 が [Top] プロ パテ ィ 、 左 
右 方 向 が [Leftl プロ パテ ィ に な り ま す 。 
③Timer イ ベン ト プ ロ シー ジャ で 、 ラ ベル コン トロ ー ル の 表示 位置 を 変 
えれ ば 、 文 字 が 移動 し て いる よう に 見 えま す 。 
解答 は 巻末 に 一 
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| 者 丈 ワン ポイ ント アド バイ ス 


メニ ュー コン トロ ー ル を 作成 する と き に 、 そ の メニ ュー を 選ぶ と ダイ アロ グ ポ ボッ クス 
が 表示 され る メニ ュー の 場合 は 、 キ ャ プシ ョ ン の 文字 の 未 尾 に 「.…]」 を 付け る の が 慣 例 
に な っ て いま す 。 

これ は 、 ユ ー ザ ー が メニ ュー を 選ん だ と き に 、「 こ の メニ ュー を 選 点 と ダイ アロ グ ボ 
ックス が 表示 され ます 」 と いつ うこ と を 伝え る た め の 、 目印 に な っ て いま す 。 


| KO 雪 表示 222 


_ 新 LL ワ hi 外 D 
| 7m2s ト を 開く ⑯). 


ーーーーーーーーーーーーーーーーーーーーーーーーーーー…ーーー ーーーーーーーーーーーーーーーーー ボ ーー ペーーーーーーーーーー ツ ーー ツー ーーーーーーーーーーーーー ボ ーーー ボー ボー ツー ツー ツー ツー ペー ペー ペー ペーーーーーー ペ ーー ズーーーーーーーーーーーーーーーーーー・ 
















DLUMI こつ 
ンプ ラフィ ツル グ 作 肝 ソ フト 

Visual Basic で グラ フィ ッ ク (イメ ー ジ ) ファ イル を 作成 する 場合 は 、 専 用 の グラ フィ ッ ク ソ 
フト を 使う と 綺麗 な グラ フィ ッ ク が 作成 で きま す 。 

Windows95/98 に は 「 ペ イン ト 」 と いう ソフ ト が 付属 し て いま す 。 こ の ソフ ト を 使え ば 、 科 
単 な イ ラス ト を 作成 で きま す 。 た だ し 、 色 数 に 制限 が ある の と 、 あ まり 凝っ た デザ イン は で き 
ませ ん 。 Adobe 社 の | イラ スト レー ター」 と いう ソフ ト は 、 プ ロ も 使う イラ スト 作成 ソフ ト で 、 
高度 な 編集 操作 と 豊富 な 特殊 効果 機能 を 持っ て いま す 。 た だ し 、 そ の 分 価格 が 高め に な っ て い 
ます 。3DCG 作成 ソ フト を 使う と 、 今 回 の 例 の よう な リア ル な イメ ー ジ を 作成 で きま す 。 ま た 、 
アニ メー ショ ン 作 成 機 能 を 持っ て いま す の で 、 作 成 し た CG オ プ ジ ェ クト を 簡単 に アニ メー ショ 
ン に で きま す 。 作成 し た アニ メー ショ ン は 、 連続 写真 の よう に 1 枚 ず つ ビ ッ ト マ ッ プ ファ イル に 
変換 で きま すか ら 、 そ れ を Visual Basic で 使え る よう に な り ま す 。 

筆者 は 、 ソ ニー テク トロ ニク ス 社 の |「STmage3D デザ イン 」 と いう ソフ ト で この レッ スン の 
画像 を 作成 し まし た 。 最近 は 、 た くき さん の 3DCG ソ フト が 販売 され て いま すか ら 、 ア ニ メ ー シ 
ョ ン 機 能 を 持っ た も の を 購入 する と いい で し ょ う 。 





に IL 
オプ ブロ ェ 249 文字 CD フィ ル ※ り 画 凍 G9 ウィ ー キ の ヘル プ 9 














- 才 F 


AdODe イラ スト レー ター 


| ST「mage3D デザ イン で の 
アニ メー ショ ン 人 作成 








第 4 日 1 時 限 目 コン トロ ー ル の 連携 と 動 の 


スク ロー ル バ ー と ツー ル チ ッ プ を 使う 
スク ロー ル バ ー と テキ スト ボッ クス コン トロ ー ル の 使い 方 を 理解 し ま 
す 。 ま た 、 ツ ー ル チッ プ の 設定 方 法 を 覚え ます 。 





ラ 回 作成 する プロ グラ ム 











ボタン に マウ ス 
ポイ ンタ を 置く と … 
ツー ル テ チッ プ が 表示 
じ ) され る 
第 4 日 スク ロー ル バ ー を 
ク グリッ ク す る と … 
時 限 目 
コ ァ イル (F) 速度 
< Lesson19.vbp 
6 旨 VB6CD 
ココ Lesson19 
| ココ テキ スト ボッ クス 
ゴ ーー の 値 が 変わ る 





朋 回 作成 し た |Lesson18.vbDp] に 、 ス クロ ー ル バー と テキ スト 
ポッ クス コン トロ ー ル を 追加 し 、 こ れ ら の コン トロ ー ル で タイ マー 
の 速度 を 設定 で きる よう に し ます 。 

また 、 コ マン ド ボ ポタ ン な ご ど に 「 ツ ー ル チッ プ 」| と 呼ば れる 小さ な 
説明 を 表示 する 機能 を 追加 し ます 。 


1GO0 


LeSSOn19 スク ロー ル バ ー と ツー ル チ ッ プ を 使う 





人 コン トロ ー ル と プロ バ パティ の 設定 


LeSSOon18.vDp 
の 保存 場所 


この ファ イル は 、 付録 CD- 
ROM の 「Lesson18| フォ 


_ AA | ル ダ に 収録 きれ て いま す 。 
ツー ル ホ ボッ クス の [Labell ボタ ン | を クリ ッ ク 
し 、 フ ォ ー ム 上 に ラベ ルコ ント ロー ル を 配置 する 


[Lesson18.vDp| を 開く 





、 コ ァイル (⑤) 


sj olx 記 軒 欄 身 





プロ バテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ の ンー ーー 

値 を | 表示 速 度 ] に 変更 する ン 

この 操作 を 行う 前 に 、 作 
TE ] 成 し た ラベ ルコ ント ロー 
me ' ル が 選択 きれ て いる こと 
ILabeI2 Label | を 確認 し て くだ さい 。 

全体 | 項目 呈 ーー 監 軒 | ここ を ダブ ルク リッ ク 


の 明 | 「 表 示 速度 |」 を 入力 








BackColor 目 | &H8HnnnnnF& 
BackStyle 1 - 二天 明 
BorderSty|s= 0 - な し 

表示 速 賠 





じ aption 
D ョ t ョ F je 
DataFormat 
DatalMambsr 
DataSourcs 





6 
第 4 日 2 時 限 目 コン トロ ー ル の 連携 と 動作 


< 。 [BorderStyle] プロ パテ ィ の 値 を [1 - 実線 ] 


値 の 切り 替え 定 す る 


[BorderStyle] プロ パテ 
1]】 、 

ィ を ダル プク リッ ク し て 、 ep 

[0- な し ] と [1- 実線 ] 

を 切り 替え る こと も で き LabeI2 Labsl 


ます 。 全体 | 項目 唱 
BackColor 
BackStyls 
ed 


に aption に 
Da ョ t ョ F je に 
















ー ms 導 | こ こ を クリ ッ ク 
| 
エ ssooocfe ーーー 4 ここ を クリ ッ ク 
1 - 人 天 H 
本 53 
忠久 ここ を クリ ッ ク 











D ョ t ョ Fcr mat 
D ョ tals mbsr 


Da ョ ta ご OurCe h4 


う 


ツー ル ボ ックス の [TextBoxj lspl を クリ ッ ク し 、 フ 
ォ ー ム 上 に テキ スト ボッ クス コン トロール を 配置 する 








Siol 90 ii 


アー メー ン 。 ラム 





ント ンプ 
EC ( (て 
ドラ ッ グ 


プロ パティ ウィ ンド ウ で [Text] プロ バ パティ の 値 を 
[100」 に 設定 する 





テキ スト ボッ クス 
ぐ き な 選択 


この 操作 を 行う 前 に 、 作 
成 し た テキ スト ボッ クス 
コン トロ ー ル が 選択 され 
て いる こと を 確認 し て く ITexti TextBox yl 


だ さい 。 








放 s き ダン ルリ ッ ク 
1100] を 入力 


WhatsThisHslplD 
Width 4U 
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LeSSOn19 スク ロー ル バ ー と ツー ル チ ッ プ を 使う 





[ToolTipText] プロ バテ ィ に 「 表 示 速 度 の 設定 ]」 を 
人 入力 する 


に に な テン ルン リッ リウ 
値 を 入力 





ji=I|e ーー 
WhatsThisHslpID n 当 
Width HI 4 





8 [MaxLength] プロ バ パティ の 値 を 「3」 に 設定 する MexLengn 


値 の 最大 値 で す 。 テ キス ト 
Dc ア Permr ボッ クス の [MaxLength」 


ーー を 「3] に 設定 する こと で 、 
Text1 TaxtHox ヨ ィ ー 箇 國 | ここ を ダブ ルク リッ ク 3 桁 以 上 の 値 の 入力 を 受け 








全体 | 項目 史 | 付け な くし ます 。 
ェ ー 

MaxLsngth 3 13] を 入力 

Mousslcon (な し ) 

Mou==Pointer n- 尋 定 ] 値 

MuHiLine F ョ |== 

OLEDragMMods ロ - 手動 

OLEDroplMods 0 - な し 

PasswvordChar て | 


ツー ル ボ ックス で 【[HScrollIBar] 座 皇 を クリ ッ ク し 、 
フォ ー ム 上 に スク ロー ル バ ー コ ント ロー ル を 配置 する 





ファ イル で ) 


eIOI | 








6 ろ 


第 人 4 日 時限 目 コン トロ ー ル の 連携 と 動作 


スク ロー ル バ ー を 


ぐ プ 選択 


この 操作 を 行う 前 に 、 作 
成 し た スク ロー ル バ ー コ 
ント ロー ル が 選択 され て 
いる こと を 確認 し て くだ 
さい 。 


6 生 


UEZ 且 


THScroll1 HScrollBsr 引 


| 王 1 本 | 項目 引 


』《} プロ パテ ィ ウ ィ ン ド ウ で プロ パテ ィ [Max] の 値 


を 「888]、[Min] の 値 を 「1」 に 設定 する 


DEZESI 


IHScrollt HScrollBsr 1 
人 伯 | 項 目 呈 | 一 監 上 ggg」 を 入力 
1nn =| | 








Largs じ hange 
」 Leaft 3315 
Max 99 
Y 由 | |「」 を 入力 
| Mouselcon (な し) 
MoussPointer n- 尋 定 ] 十 
 』RightToLsft Fal=e | 
| 記 mallChange _1U 間 S || 


目 目 [LargeChange] プロ パテ ィ の 値 を 「100」 に 
設定 する 








こ ご 和 を マン ルク ワッ クツ 
「100」 を 入力 





HslpContesxt 
Index 


Larg= じ hange 








1 [Value] プロ バテ ィ の 値 を 1100」 に 設定 する 





HScrelll 





es シン ノリ レツ リッ グ 








TabStop True 
1 ョ ag 
Top ど 295 
た 1 に 1UU アン | 1 00」 を 入力 
yisibls True 
Whats ThisHslplD ロ 
Width 1710 細 


LeSSOn19 スク ロー ル バ ー と ツー ル チ ッ プ を 使う 





1 タ IStop] ホ タ ン を クリ ッ ク し て 選択 する 





この ボタ ン を クリ ッ ク 


「 ア ニメーション ブロ グラ エム 


oil 可 





ーー ペペ どー マンツ mew ゾン ププ mee ペー ニー ペー ニー ペー ニー 


Mooeese ッ ame 


用 [ToolTipText] プロ バ パティ に 「 ア ニメーション 
肖 の 停止 」 を 入力 する 


PU 芋 人 本 に ip 








IStop Btn CommarndBiutton <| 
全体 | 項目 別 | 
Right ToLsft F 引 == 5? 時 
Style ーー 1 ここ を ダブ プル クリ ッ ク 
Tablndex LU 
TabStop True 
Tag 
OISIX 表 較 較 アー ンー ショ ン の 信 止 〆 衝 | 値 を 入力 
っ ロ 「| 





』$ 同様 に 、[Start] ボタ ン と [終了 ] ボタ ン の 
[ToolTipText] プロ バテ ィ に 次 の 値 を 設定 する 








(セン た ー [ToolTipText] の 値 
アニ メー ショ ン の 開 
フロ グラ ム の 






Br か 


| Ii 還 メ ee コノ 


1 





[StartBtn] ボタ ン と 
[ExitBtn] ボタ ン 


16S 
第 人 4 日 ら 時 限 目 コン トロ ー ル の 連携 と 動作 


1⑬⑮ 完成 し た レイ アウ ト 


』 。 * ノ ヨ ' 


ee 


ニメーション ブログ ラム 


人 


ペー ンー ペー アー アー ペペ ーーーー ペ ーー ペペ ーー ツン ンー ジー ペー ンー ツー ペー の マー ペー デー ペー パー ツー ペペ ーー ペー ニー ペペ ンー ツマ ーーー ピー こい ーー らき ペー の ーse ス こ e こ っ ーー ペー の ペー の ペー ペー マジ ee みい ペー ペー ズン ーー ツン we へ へ こい ーー 








※ [Lesson18.vDD] の コー ド に 追加 し ます 。 


Form1:HScroll1-Chande 


開 Proiect1 - Form1 (コー ト ) 


IHScroll1 ・| 


P ェ ュ で a モ 上 Sub HSCro111 Change( ) 
ex 上 1 。. エ xx 七 = HSC て o111 .Va1ue 








Change マ 


1m ら er 1 。. エロ 上 Ga = HHSCro111 .V び a1ue 
下 nd Sub 


Form1:Text1-Chande 


1 4 昌幸 


ロメ 
ITexti ・| Change マ 


ーーーーー…… ーーーーー ニ ーーーーー- ーーーーーーーーーー ニ ーーーーーーーー ーーーーー- 


P ェ ュ で ate Sub Tex モ 1 Changde ( ) 
エ F mex 上 1 。ex ヒ 上 = "" Or Tex モ 1.TexE = "0" Then 
MsgBox "数 値 を 入力 し て くだ さい * 
SC エ oO111.Value = 1 
ex*x 七 1 。.FGx 七 = 『1『 
Ese 
SC て oO111 .Va1ue = T エ np ヒ (Tex 上 1 。 Fe ) 
EnQd エ 仁 
下 nd Sub 











LeSSOn19 スク ロー ル バ ー と ツー ル チ ッ プ を 使 


引 FOrm2: Command1- Click 


| 本 Prc ject1 -F R 










上 Tc。, m ad1 


瘍 寺村 te Sub RY _cick() 

| Form1 .HScro111 .Va1ue = Speed 
[ Unload Form2 
End Sub 














この プロ グラ ム で は 、 ア ニメーション の 表示 速度 の 設定 を 、 テ キス ト ボ ックス と 
スク ロー ル バ ー コ ント ロー ル で 行え る よう に し まし た 。 
これ ら の コン トロ ー ル は 、 互 い に 連 動 し て 動作 し ます 。 


① ユ ー ザ ー が ーー 速度 を 入力 する と 、Timer コ 
ント ロー ル の [Intervall プロ パテ ィ の 値 を 変え ます 。 

② ユ ー ザ ー が スク ロー ル バ ー を 操作 する と 、 テ キス ト ボ ックス コン トロ ー ル の 数 
字 が 変化 し 、Timer コ ント ロー ル の [Intervall プロ パテ ィ の 値 が 変わ り ま 
す 。 

③ す で に 作成 し て いる 、 表 示 速 度 設定 用 の オプ ショ ン ボ タン を 使っ て 表示 速度 を 
設定 する と 、 テ キス ト ボ ックス と スク ロー ル バ ー コ ント ロー ル も その 値 に 変化 
し まず 。 





テキ スト ボッ クス コン トロ ー ル は 、 ユ ー ザ ー か ら 文 字 の 入力 を 受け 付け る コン ト 
ロー ル で す 。 入力 フィ ー ル ド に 入力 され た 文字 を 、[Text] プロ パテ ィ に 格納 し ま 
す 。 通常 は 、 一 行 入 力 に 設定 され て お り 、[MaxLength] プロ パテ ィ に 設定 され た 
文字 数 を 受け 付け ます 。 

この プロ グラ ム で は 、3 桁 まで の 数 字 を 受け 付け る よう に し て いま すか ら 
IMaxLength] プロ パテ ィ を |「3| に 設定 し まし た 。 


テキ スト ボッ クス コン トロ ー ル の 入力 フィ ー ル ド に 、 ユ ー ザ ー か ら 文字 が 入力 き 
れる と 、Change イベ ント が 発生 し ます 。 
この プロ グラ ム で は 、 入 力 が ある と すぐ に 水平 スク ロー ル バ ー と Timer コン トロ 
ー ル に 、 そ の 数 字 を 渡す よう に 作成 し て あり ます か ら 、Change イ ベン ト プ ロ シー 
ジャ で これ ら の 処理 を 行っ て いま す 。 


P ェ ュ ate Sub Tex モ 1 Change ( ) 


End Sub 





第 4 日 時限 目 コン トロ ー ル の 連携 と 動 の 








和 








テキ スト ボッ クス (Text1) に ユー ザー か ら 入 力 が ある と 、 そ の 値 は [Text] プ 
ロ パ ティ に 格納 され ます の で 、 そ の まま スク ロー ル バ ー コ ント ロー ル (HScrol1l) 
の [Value] プロ パテ ィ に 代入 し ます 。 こ の と き 、TImt 関 数 に より 文字 列 が 数 値 ( 整 
数 ) デー タ に 変換 され て 人 入力 され ます 。TInt 関 数 は 指定 し た 数 値 の 整数 部 分 を 返す 関 
数 で す 。 


理 SC て o111 .Va1ue = Tn (Tex モ 上 1 。 ex ) 


し か し 、 テ キス ト ボ ックス に な に も 人 入力 され な いか 、 ま た だ は |0」| が 入力 され る と 、 
スク ロー ル バ ー コ ント ロー ル の [Value] プロ パテ ィ は 、 空 白 ま た は 「0」 が 設定 さ 
れ て し まい ます 。 こ の [Value] プロ パテ ィ の 値 は 、 あ と で Timer コン トロ ー ル の 
[Intervall プロ パテ ィ に 設定 し ます の で 、「0] の まま だ と Timer コン トロ ー ル は 動 
作 で き な く な っ て 、 エ ラー を 起こ し て し まい ます 。 そ れ を 防止 する た め に 、 事 前 に 
[Text] プロ パテ ィ の 値 を チェ ッ ク し て 、If ス テー トメ ント で 注意 メッ セー ジ を 表 
示す る 処理 を 行っ て いま す 。 


P ェ ュ 1 ゞ ate Sub Text1 Change ( ) 

エ FE "Tex 上 1 Tex = "" Or Text 上 1 .Tmex = "0" Then 
MsgBox "数 値 を 入力 し て くだ さい 
HSC エ oO111.Va1ue = 1 
mexxt1 。mexx 上 = "1 

EE1se 
芋 S こ て Oo ユ 11 . び a1ue = T エ nt(Texx 上 1 . Te 六 ) 

End エモ 

nd Sub 


IOr」 は 論理 演算 子 で 、 演 算 子 の 前 後 の 式 の どちら か が 真 で あれ ば 、 真 を 返し ま 
す 。 ここ で は 、[Text」 プロ パテ ィ の 値 が 1"」 (な し ) か 10| の 夫 種 趣 け 、 Hf ステ 
ー ト メン ト の 式 を 有効 に し て いま す 。 


エモ "mext 上 1 。mex ヒ = "" Or Texx 上 1。Tmex = "0" mhen 


水平 スク ロー ル バ ー コ ント ロー ル は 、 ユ ー ザ ー に よっ て 矢印 また は バー 部 分 が ク 
リッ ク さ れる と 、 ス ライ ダー を 動か す と 同時 に [Valuel プロ パテ ィ に その 移動 量 
を 数 値 デ ー タ で 格納 し ます 。 

スク ロー ル バ ー を 設定 する 際 は 、 最 小 ・ 最 大 の 移動 量 な どの プロ パテ ィ を 設定 し 
ます 。 








LesSSOn19 スク ロー ル バ ー と ツー ル チ ッ プ を 使 


プロ パテ ィ 眼下 に 
スク ロー ル 範 囲 の 上 限 値 (最大 値 ) を 設定 し ます 。 


[Min] スク ロー ル 範 囲 の 下限 値 (最小 値 ) を 設定 し ます 。 
スク ロー ル バ ー は 、 こ の Max と Min の 間 を 移動 し ます 。 
[SmallChange] | スク ロー ル バ ー の 矢印 ボタ ン を 押し た と き に 、 ス ライ ダー 
が 移動 する 移動 量 を 設定 し ます 。 


[LargeChange] | スク ロー ル バ ー の バー の 部 分 を 押し た と き に 、 ス ライ ダー 
が 移動 する 移動 量 を 設定 し ます 。 


[LargeChange] 








ここ を クリ ッ ク す る と SmallChange 
で 設定 され た 量 だ け 動 く 






ここ を クリ ッ ク す る と LargeChange 
で 設定 され た 量 だ け 動 く 





4 日 日 コン トロ ー ル の と 生き 








ー 








スク ロー ル バ ー の 矢印 ボタ ン や バー の 部 分 が 押さ れ た り 、 ス ライ ダー が 動か され 
る と 、Change イベ ント が 発生 し 、 移 動 量 は [Valuel プロ パテ ィ に 格納 きれ ます 。 

そこ で 、 ユ ー ザ ー に よっ て スク ロー ル バ ー が クリ ッ ク さ れる と 、Change イベ ン 
ト プ ロ シー ジャ で 、HScroll コ ント ロー ル の [Value] プロ パテ ィ の 値 を 、Timer コ 
ント ロー ル の [Imtervall プロ パテ ィ に 代入 し て いま す 。 

その 際 、 こ の 値 が ユー ザー に も わか る よう に 、 テ キス ト ボ ックス コン トロ ー ル の 
[Text] プロ パテ ィ に 代入 し て 表示 し て いま す 。 


P エ ュ エ ゞ a モ 上 Sub HScCro111 Change ( ) 
ex 七 1 .Gxx 七 = HSCro111 .Va1ue 
1mer1 . エロ 上 G エ Ya = HSCro111 .Va1ue 

End Sub 


これ で 、 ス クロ ー ル バー が クリ ッ ク さ れる と 、 ア ニメーション の 表示 速度 が 変化 
し 、 テ キス ト ボ ックス に も 表示 され る よう に な り ま す 。 


Form2 で は 、 表 示 速 度 を オプ ショ ン ボ タン で 設定 し て いま し た が 、 こ れ も ユ ー ザ 
ー が 選ん だ 値 を スク ロー ル バ ー に 反映 させ て お きま す 。 こ れ は 、 変 数 Speed を その 
まま スク ロー ル バ ー の [Value] プロ パテ ィ に だ に 代 大 ず あ だ 生き ま 戸 二 電 時 。 テ キス 
ト ボ ックス コン トロ ー ル の 数 字 も 変更 され ます 。 


Pr ュ ate Sub Command1 C1iok ( ) 


Form1 .HScro111 .Va1ue = Speed 追加 し た 処理 


Unload Form2 
End Sub 


な ぜ 、 ス クロ ー ル バー の [Value] プロ パテ ィ に 値 を 代入 し た だ け で 、 テ キス ト 
ボッ クス も 表示 が 変化 する の で し ょ う 。 ま た 、Timer コ ント ロー ル の [Interval」 
プロ パテ ィ へ の 値 の 代入 は 、 ス クロ ー ル バー コン トロ ー ル の Change イベ ント プロ 
ンー ジャ に し か 記述 し て いな い の に 、 な ぜ テ キス ト ボ ックス コン トロ ー ル に 入力 し 
た だ け で 、 表 示 速 度 が 変化 する の で し ょ う 

実は 、 ス クロ ー ル バー コン トロ ー ル の (HScroll1) [Value] プロ パテ ィ に 値 が 代 
人 され る と 、Change イベ ント が 発生 する の で す 。 ユ ー ザ ー が スク ロー ル バ ー を 操 
作 し て も 、 コ ー ド で 値 を 代入 し て も Change イベ ント が 発生 し ます 。 

スク ロー ル バ ー に Change イベ ント が 発生 する と 、Change イ ベン ト プ ロ シー ジャ 
が 呼び 出さ きれ 、 そ こ に 記述 きれ て いる 処理 を 実行 し ます 。 動作 を 整理 する と 、 次 の 
よう に か なり ます 。 








LesSSOn19 スク ロー ル バ ー と ツー ル チ ッ プ を 使 














スク ロー ル バ ー コ ント 
ロー ル の Value プロパ 
ティ に 値 が 代入 され る 


Interval プロ パテ ィ へ の 値 の 代入 が 実行 され る 


②⑥ ユ ー ザ ー が スク ロー ル バ ー を 操作 し た 場合 


テキ スト ポッ クス コ 
ント ロー ル の Text プ 
ロ パ ティ に 値 が 代入 


スク ロー ル バ ー コ ント 
ロー ル の Value プロ パ 
ティ に 値 が 代入 され る 










テキ スト ボッ クス コン トロ ー ル の Text プロ パテ ィ に 値 が 代入 


Interval プロ パテ ィ へ の 値 の 代入 が 実行 され る 
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ユー ザー が ボタ ン な どの 上 に マウ ス を 置く と 、 小 さき な 説明 文 が 表示 され ます 。 
Windows 95/98 で は お な じみ の 機能 で す が 、 こ れ を 「 ツ ー ル チッ プ 」 と いい ます 。 

この 機能 は 、 コ ント ロー ル に ある [ToolTipText] プロ パテ ィ に 表示 し た ゆい 文字 
を 設定 する と 実行 きれ ます 。 す べ て の コン トロ ー ル が [ToolTipText] プロ パテ ィ 
を 持っ て いる わけ で は あり ませ ん か ら 注 意 し て くだ さい 。 





第 4 日 ら 時 限 目 コン トロ ー ル の 連携 と 動 


HH 








ツー ル チ ッ プ の 表示 





以上 で プロ グラ ム が 完成 で す 。 実行 きせ て 、 設 定 し た テキ スト ボッ クス や スク ロ 
ー ル パ ー で 。 ア ニメーション の 表示 度 を 変え て あて で て だ 半 Wa 





フォ ー ム の 有効 期間 


フォ ー ム は 、 い つづ 作成 表 示さ れ 、 い つ 終 了 す る の で し ょ うか 。 一 般 的 な プロ グラ ム を 実行 す 
る と 、 フ ォ ー ム は ぴ ① 作 成 ② ロ ー ド ③ 表 示 ④ 解 放 (アン ロー ド ) 、 の 4 つの 状態 を 通常 移行 し て い 
きま す 。 目 に 見 える 部 分 で は フォ ー ム が 表示 され た ③ の と き に 作成 され た よう に 思え ます が 、 
それ より 前 の ①ー② の 短い 段階 で 既に フォ ー ム は 存在 し て いま す 。 

イベ ント レベ ル で は 、 ま ず ① の と き は mmitialize イベ ント が 発生 し 、② で Load イベ ント 、③ で 
ウィ ンド ウ が 最前 面 に 表示 され れ ば Activate イベ ント 、①④① に な っ た と き QueryUnload イベ ント 
っ Unload イベン トー Terminate イベ ント と いう 順序 で 発生 し た 後 、 終 了 し 完全 に 解放 きれ ます 。 
これ ら を わか りや すく 見 せる た め の サ ンプ ルプ ログ ラム [Column19.vybp」 を 「Lesson19」 フォ 
ル ダ に 収録 し て いる の で 、 起 動 し て 確か め て みて くだ さい 。 

フォ ー ム を 任意 の 時 期 に 表示 する 場合 に は Show メソ ッ ド を 使い ます 。 非 表示 に する に は 
Hide メ ソ ッ ド で す 。 た だ し 、 非 表示 に し て も メモ リ に フォ ー ム の 情報 は 残っ て いま す 。 メ モリ 
か ら す べ て を 削除 する に は 、Unload ステ ー ト メン ト を 使用 し て くだ さい 。 

End ス テー トメ ント は どちら か と いう と 強制 終了 的 な 命令 で す 。 た と えば 複数 の フォ ー ム が 
ある よう な プロ グラ ム で End ス テー トメ ント を 実行 する と プロ グラ ム 全 体 が 終了 し て し まい ま 
す 。 こ うい っ た 場合 は 、 フ ォ ー ム を いっ た ん Unload ステ ー ト メン ト で メモ リ か ら 削 除 し て か ら 、 
プロ グラ ム を 終 耳 する よう に し ます 。 

また 、 今 まで の プロ グラ ム で は ユー ザー が ウィ ンド ウ の 右上 の [閉じ る ] ボタ ン を クリ ッ ク 
する と 、 強 制 的 に 終了 し て いま し た が 、 サ ンプ ルプ ログ ラム [Column19.vbp」 で は Unload ( ま 
た は QueryUnload) イベ ント を 利用 し て 、 ユ ー ザ ー に 終了 させ る か どう か を 確認 する 簡単 な コ 
ー ド サン プル も 掲載 し て いま す 。 自分 の プロ グラ ム に 応用 する と よい で し ょ う 。 











LesSOn19 スク ロー ル バ ー と ツー ル チ ッ プ を 使 


表示 速度 の 設定 1 つ を と っ て も 、 


① メ ニュ ー で 操作 する 

@⑥ ぐ ポッ プア ッ プ メニ ュー を 使う 
③ ダ イア ログ ボッ クス で 操作 する 
《④ オ プシ ョ ン ボ タン を 使う 

⑤ テ キス ト ボ ックス を 使う 

⑥ ス クロ ー ル バー を 使う 


な ど 、 い ろ い ろ な ユー ザー イン ター フェ イス を 作成 する こと が で きま す 。 状況 に 応 
じ て 一 番 ユ ー ザ ー が 使い や すい と 思わ れる コン トロ ー ル や イン ター フェ イス を 作成 す 
る こと が 大 事 で すね 。 

また 、 コ ント ロー ル の 連携 は 、 プ ロバ ティ と イベ ント を 組み 合わ せる の が 、 ポ イン 
ト で す 。 


上 「QSA-18.vbp] の プロ グラ ム に 、Lesson19.vbp と 同様 に テキ スト 
ポ ボッ クス と スク ロー ル バ ー コ ント ロー ル を 付け て 、 文 字 の 表示 速度 を 変 
えら れる よう に し て くだ さい 。 


Eo Fo 」 5 _T ロ lxl 


解答 は 巻末 に 一 


都 馬 ワン ポイ ント アド バイ ス 


ツー ル チ ッ プ に 使う 文字 は 、 な る べく 簡潔 に し ます 。 ま た 、 的 確 に 操作 内 容 が わか る 
よう な 表現 を 使う よう に し まし ょ う 。 








第 4 日 ら 時 限 目 コン トロ ー ル の 連携 と 動 の 





チェ ッ ク ボ ックス ・ リ スト ボッ クス 


コン トロ ー ル を 使う 
チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル の 使い 方 を 覚え ます 。 
また 、 こ れ ら を 組み 合わ せ て 使う テク ニッ ク を 学び ます 。 
今回 作成 する プロ グラ ム 
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名 前 の 層 所 レ リス ト か ら 選 択 





チエ ツウ タク 容 付 ぼ "< 





| リス ト か ら 名 前 
“ | 子 | を 選択 し … 
順 4 日 


3 時 限 目 


この ボタ ン を クリ ッ ク 
する と … 


、 リス ト 選 択 プ ロダ ラム 


< Lesson20.vbp 


9 VB6CD 





ココ Lesson20 


メッ セー ジ が 表示 
され る 





チェッ ク ポ ボッ クス コン トロ ー ル と リス ト ボ ックス コン トロ ー ル を 
組み 合わ せ て 、 簡 単 な 選 択 ダ イア ログ ボッ クス を 作成 し ます 。 


ユー ザー か ら の 入力 を 、 テ キス ト ボ ックス と リス ト ボ ックス の ら 
こおり 用 意 し 、 チ ェ ッ クボ ックス で 切り 替え て 使い ます 。 


ユー ザー に 、 複 数 の 項目 か ら 1 つ だ け 選 択 し て も ら う 場合 は 、 リ 
スト ボッ クス コン トロ ー ル を 使う と 便利 で す 。 
17 人 


LeSSOn の 0 チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル を 使う 


ンー 人 >・ シー デニ レル ツク シン と し 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


ツー ル ボ ックス の [Label] ' 葵 | を クリ ッ ク し 、 
フォ ー ム 上 に ラベ ルコ ント ロー ル を 配置 する 


ここ 大 ン リック 
を の まま ここ まで 
| ドラ ッ グ 








ーー ツー ペー ペペ ーー シー ペー ペー ペー ペー ンー ペー マツ ペ ツーン ーー ンマ ペペ ーー ンー ンー ンー ペー ペー ンー ツン ツー ペペ ーー ニー ニー ニー ペーーーー・ 


プロ バテ ィ ウ ィ ン ド ウ で 【[Caption] プロ パティ の 





値 を 「 名 前 の 選択 ] に 変更 する ラベル を 中 択 
この 操作 を 行う 前 に 、 作 
EE 成 し た ラベ ルコ ント ロー 
ILabsi Labsl 1 ル が 選択 きれ て いる こ と 
全体 | 項目 別 | を 確認 し て くだ さい 。 











こと 共 ア プル リッ ク 
| 名 前 の 選択 ] を 入力 


ツー ル ボ ックス の [TextBox] !sbl を クウ リッ ク し 、 
フォ ー ム 上 に テキ スト ボッ クス を 配置 する 


CC クン ング リプ 









BackColor 
BackSty|= 
BordsrStylg 
じ aption 
= トキ ュ F」 こ 1 ゴ 


| | &H8HUHUHUF& 
1 - 本 天明 

0 - な お し 
名 前 の 志 所 









2 
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テキ スト ボッ クス 
ペデ を 選択 
この 操作 を 行う 前 に 、 作 
成 し た テキ スト ボッ クス 
コン トロ ー ンク が ああ され 


て いる こと を 確認 し て < IText1 TsxtBox ( el 


プロ バテ ィ ウ ィ ン ド ウ で [Text] プロ パテ ィ の 値 を 
| 名 前 を 入力 し て くだ さい 。」 に 変更 する 








だ さい 。 | 全体 | 項目 別 | 





ScrollB ョ rs 


ここ を ダブ ルク リッ ク 
名 前 を 入力 し て くだ さい | 値 を 入力 


| Top ロ 引 


ンーlS aa Se | 


ツー ル ボ ックス の CheckBox じ が 50 リック し 、 
フォ ー ム 上 に チェ ッ ク ボ ックス を 配置 する 


ここ を ンジ リッ クシ ク 





名 前 の 選択 ー~ へ 


"Shekt- 還 
[名前 を 入力 し て くだ さい 。 還 


と も 
を 選択 

この 操作 を 行う 前 に 、 作 
成 し た チェ ッ ク ボ ックス 
コン トロ ー 0 


て いる こと を 確認 し て く SE ChaSkBox き 


8 。 | ここ を ダブ ルク リッ ク 
n - 左 揃 え ] 


1 - 3D 


プロ バル ディ ウィン ドウ で 【Caption] プロ パテ ィ の 
値 を | リスト か ら 選 択 」 に 変更 する 








ント 全体 | 項目 | 





目 | &H8HIHHnnF& 


リス ト か ら 選 所 | 値 を 入力 


auses"alidation True 





7G 


LeSSOnG0 チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル を な を 使う 





ツー ル ボ ックス の [ListBox] 国 な リック も 。 < コン ボボ ックス と 
フォ ー ム 上 に リス ト ボ ックス を 配置 する 注意 する 


[ListBox] ボタ ン は 


es [ComboBox] ボタ ン と 形 
1 | 

こ に に 算 ウ リ ッ ン が 似 て いる の で 注意 し て 

ワウ セ くだ さい 。 


世 [ListBox | 


リーー ーーー ーーーーーーー バ ーー 





] 咽 。 For mi 1 


名 前 の 選択 


| 名 語 を 入力 し て くだ さき しい 。 


ーー 


| [ComboBox」 
その まま ここ まで | | | 世 四 
ドラ ッ グ es 


ーー デー ツタ ーー Ne ンス mm ニー ニー ニー ペペ e ス メン ーー ニー タタ ーーmer テ ーー 


プロ バテ ィ ウ ィ ン ド ウ で [List] プロ パテ ィ の 値 に 0 
10 人 分 の 名 前 を 入力 する 選択 


この 操作 を 行う 前 に 、 作 
DSS 瑞 EE 成 し た リス ト ボ ックス コ 


Liet1 LtBec |! ント ロー ル が 選択 され て 
] さい 。 
に こと を だ プリ ワッ フク 


に と を ンジ リッ ク 














リス ト ボ ックス の 

| ーー ニーーーー ニ ーー 1 スク ロー ル バ ー 

List1 ListBax マ 用 款 スト ッッ 

全体 | 項目 別 | | ー ル に 表示 し きれ な い 行 

IntagralHaight Trus 4| 数 の 値 を 入力 する と 、 リ 
tsmDatsa り ヌ ド ] スト ボッ クス に 自動 的 に 
Laft っ oo | 垂直 の スク ロー ル バ ー が 
加計 ed 追加 され ます 。 

Mouselcon | 半 





| MousePointer 
MutiSsls=ct 
LEDrag Mods 


] | | 
QOLEDrophloda | 
Right ToLsft pi 


eo 





葉 久 | 名 前 を 入力 





ま チ アメ 


第 4 日 時限 目 コン トロ ー ル の 連携 と 動作 


ぐ 値 の 切り 替え 


[Enabled] プロ パテ ィ を 
ジラ ルク リッ ケト て 、 
[True] と [False」 を 切 
り 替 える こと も で きま す 。 


コマ ンド ボタ ン を 
ぐ ダ 選択 

この 操作 を 行う 前 に 、 作 
成 し た コマ ンド ボタ ンコ 
ント ロー ル が 選択 され て 


いる こと を 確認 し て くだ 
きい 。 
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| 咽 。。 For mi ] 


名 前 の 選択 


フジ ェ ル 名) 


Causesyalidation True 


ne と) 


プロ バテ ィ ウ ィ ン ド ウ で [Enabled] プロバ ティ の 
値 を |「False」 に 設定 する 


PP 







看 下 


m 導 | ここ を クリ ッ ク 
用 | ここ を クリ ッ ク 


Listt ListBox 可 1 


全体 | 項目 別 | 


| Drag lcon 
Drag kode 


| 租 m に ]m1[ ニ lm 











Font 
| FarsColar F ョ |== う ここ を ジン リ た 
| |Height 13an 


』《)} ツー ル ボ ックス の CommandButton] 上 咽 畔 を 
クリ ッ ク し 、 コ マン ド ボ タ ン を 配置 する 


(を ンジ リッ ク 
の まま こま の 
ドラ ッ グ 





「 リス ト か ら 選 択 





目 目 プロ バテ ィ ウ ィ ジ シド を 6aption」 プロ ルディ 
の 値 を | 表示 」 に 変更 する 





| / h 嘱 テ か に Im 
| Command1 に ommarndButton 
全体 | 項目 別 | 


















Command1 
1 - 3③D 
護 &HGUUUUUHUF& 


まま 1 ロニ 


表示 


こと を ダフ ルプ ワッ ラフ 
表示] を 入力 





Dsfau ト False= 


LeSSOn つ 0 チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル を 使う 





』 フ ツー ル ボ ックス の [Label] ' 典 | を クリ ッ ク し 、 
フォ ー ム 上 に ラベ ルコ ント ロー ル を 配置 する 






名 前 の 選択 「 リス ト か ら 選 択 


| | 名 前 を 入力 し て くだ さい 。 










に な ケン ワ リッ シン 


目 名 プロ バテ ィ ウ ィ ン ドウ 守 6aptign] プ 自 近 ィ ae 
の 値 を 削除 する 6 

この 操作 を 行う 前 に 、 作 
| ル が 選択 され て いる こと 
ILabeia Labsl ] を 確認 し て くだ さい 。 
| 全体 | 項目 別 | 
| BackColor 
| ackSty le 
















| | &H8BUHUHF& 
1 - Q 枯 B 










| DataFisld 


at ョ Focr mat 


』 用 [BorderStyle] プロ パテ ィ の 値 を [1 - 実 線 ] 
| 


ーー く ぞ 値 の 切り 替え 


セル の 右端 に ある 「[ 補 ] 


















ティ イー Labelo 5 クン ルク フッ クル し 、 
人 [ 覧 か ら 選 択 し て 値 を 切り 
ILabeI2 Label c | ーー 株 える こ * き ます -。 

ーー と セル を ダブ ルク リッ ク あく 

た コト: | 項目 史 

BackColcr | | &H8HHnF& 

BackStyla 1 - 本 透 明 

1 - 実 練 値 が 切り 替わる 





じじ ョ ption 
] D ョ t ョ F je | ロ 


Dat ョ F or mat 
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の フォ ー ム の 選択 


フォ ー ム を 選択 する に は 、 
フォ ー ム 上 の コン トロ ー 
ル 以 外 の 部 分 を クリ ッ ク 
に し まず す 。 


80 


| BackColor 
Sd 
Caption 
ClipControl= 
ControlBox 


| DrawMods 1 - 回 定 %- ル ウル トウ | 
DrawStyls 5 - 可 実 ツ ー ル リィ イト ツ | 
| DrawVWidth 1 マ | | 


ーー ーー 本 - ] 


1 う Form] を 選択 し 、[BorderStyle] プロ バテ ィ 
の 値 を [1 - 固定 (実線)] に 変更 する 



















Formi Form 。 | 

全休 | 項目 串 | | 馬 軒 | ここ を クリ ッ ク 
| 』 ひ DD ら ョ 「 ョ コロ ご ら 1 - SD 

| 避 uto Redrawy F al=e 


目 &H800QO0OF& 


用 | ここ を クリ ッ ク 
E 由 | ここ を クリ ッ ク 
















人 プロ パテ ィ の 全 を を 「 リ スト 選択 プロ 


165 











全体 | 項目 | 
ここ を ダブ ルク リッ ク 







Falsg 
| | 8H8HUHUHHF& 

1 - 固定 ( 宇 紀 ! 

リロ スト 選択 ゴロ ジラ 


True 





名 前 の 選択 


| 名 前 を 入力 し て 下る! te 








LeSSO0n つ 0 チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル を 使 





VRM 


| 開 Projiect1 - Form1 (コー ト ) 


| | (GeneraD <| (Declsrations) ( ・| | 


Dim CheokkPos AS エロ n ロ ヒ ら Ge 








| 剛 Projsct1 - Form1 (コー ト ) 





_Ichecki <| |ciick <| 


P ェ ュ で a モ 上 Sub Check1 C1icK( ) 


CheckKPos = Check1 .Va1ue 
Selec Case CheckPos 
Case 1 
1 上 1 . 正 nab1ed 
ex 上 1 ユ Enab1ed 
Case 0 
8 上 1 . 正 nab1ed 
ex 七 1 . 正 nab1ed 
nd SG1eGcC 
正 nd Sub 


エ い G 
Fa1Sse 


Fa18s@e 
エエ いら G 


邊 Form1:Command1-Click 
| PTY = 1 間 の Es ] 


 P エ ミュ ゞ a モ @G Sub Command1 C11Ck ( ) 
Dim MS AS 8 上 エ ュ nd 





Se1lec モ Case CheckPos 
Case 1 
Ms 
Case 0 
MS 
nd SG1eGc 


List1.mext gg "が 選ば れ ま し た 
mext1 .mext g "が 選ば れ ま し た * 


| Labe12 .Cap モ on = Msd 
 End Sub 
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この プロ グラ ム は 、 ユ ー ザ ー が テキ スト ボッ クス に 入力 する か 、 リ スト ボッ クス 
か ら 選 択 し た 名 前 を 、[ 表 示 ] ボタ ン が 押さ れ た 時 点 で 、 ラ ベル コン トロ ー ル に 表示 


ゲロ グラ と で せ ず すず 。 











プロ グラ ム 起 動 時 は 、 テ キス ト ボ ックス で 入力 する よう に な っ て いま す が 、 チ ェ 
ッ ク ボ ックス を オン に する と リス ト ボ ックス か ら 選 択 で きる よう に な り ま す 。 これ 
は 、Windows の アプ リケーション で 表示 され る ダイ アロ グ ボ ックス に よく 使わ れる 
アグ ーッ グ で すん 


プロ グラ ム の 処理 を 説明 し て お きま す 。 


① プ ログ ラム 起動 時 は 、 テ キス ト ボ ックス が 有効 で リス ト ボ ックス は 無効 に な っ 
て いる 

② ユ ー ザ ー が テキ スト ボッ クス に 名 前 を 入力 し て 、「 表 示 ] ボタ ン を 押す と 、 ラ ベ 
ルコ ント ロー ル に 名 前 が 表示 され る 

③「 リ スト か ら 選 択 ] チェ ッ ク ボ ックス を オン に する と 、 テ キス ト ボ ックス は 無 
効 に な り 、 リ スト ボッ クス が 有効 に な る 

《④⑥ お リス ト ボ ックス か ら 名 前 を 選択 し て [表示] ボタ ン を 押す と 、 ラ ベル コン トロ 
ー ル に 名 前 が 表示 され る 


チャ タグ ッ タメ スコ シト ロール ほ は 。 ユー ザー が クリ ッ ウ みす る とる チェ ャ タタ マー み だ が 
付け られ ます 。 こ の と き 、 チ ェ ッ クボ ックス コン トロ ー ル に は Click イベ ント が 発 
生 し 、[Value] プロ パテ ィ に だ 提 』 が 調和 定 き れ ま す 。 もう 一 度 ク リッ ク す る と 。 チ 
ェ ッ ク が は ず さ れ [Value] プロ パテ ィ に は 「0| が 設定 され ます 。 


チェ ッ ク が 付い た 
チエ ッッ クボ ポッ ツ ス 











LeSSO0n20 チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル を 使 


用 チェ ッ ク ボ ックス Check1 で は 、Click イベ ント プロ シー ジャ で 、 現 在 チ ェ ッ クボ 
ックス に チェ ッ ク が 付い て いる か どう か を 、[Value] プロ パテ ィ の 値 を 使っ て 調べ 
ます 。 こ の と き 、[Value] プロ パテ ィ の 値 を 、 事 前 に 変数 CheckPos に 格納 し て お 
きま す 。 で ぞ で し て 、 チ ェ ッ ク さ きれ て いれ ば テキ スト ボッ クス を 無効 に し て 、 リ スト ポ ボ 
ックス を 有効 に し ます 。 チ ェ ッ ク さ れ て いな けれ ば 、 テ キス ト ボ ックス を 有効 に し 
て 、 リ スト ボッ クス を 和 無効 に し ます 。 

有効 ・ 無 効 の 切り 替 えん は 、 そ れ ぞ れ の コン トロ ー ル の [Enabled] プロ パテ ィ を 
使い ます 。 


P ェ ュ yate Sub Check1 C1iock( ) 


CheckPEos = Checgk1 .Va1ue 
Selec Case CheckPos 
Case 1 
8 上 1 . 正 nab1ed = True 
ex 七 1 .Enab1ed = False 
Case 0 
1 上 1 . 正 nab1ed = Fa1lse 
ex 1 .nab1ed = FT エ u@G 
正 nd SeG1 エ ec 
End Sub 


人 ⑮ [Value] プロ バテ ィ の 値 (チェ ッ ク の オン ・ オ フ ) で 処理 を 分 岐 する の に 、 
Select Case ス テー トメ ント を 使用 し て いま す 。 
Select Case ス テー トメ ント は 、 式 (また は 変数 ) の 値 に よっ て いく つ で も 処理 を 
分 岐 で きる 条件 分 岐 ス テー トメ ント で す 。 
【Select Case ステ ー ト メン ト の 書式 】 
Se1ect Case 式 
Case 式 の 値 1 
処理 1 
Case 式 の 値 2 
処理 2 
Case 式 の 値 3 
処理 3 


EnQd ae 
この プロ シー ジャ で は 、 変 数 CheckPos の 値 (すなわち [Value] プロ パテ ィ の 値 ) 
が 1 の 場合 と 0 の 場合 で 2 通り の 処理 を 作成 し て いま す 。 
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①⑪ 現在 の チェ ッ ク ボ ックス の チェ ッ ク の 有無 が わか れ ば 、 テ キス ト ボ ックス と リス 








ト ボ ックス の 、 ど ちら か ら 名 前 を 取得 すれ ば いい の か が わか り ま すか ら 、 あ と は そ 
の 名 前 を ラベ ルコ ント ロー ル に 出力 する だ け で す 。 

これ も 同様 に 、Select Case ス テー トメ ント を 使っ て 、2 つ の 処理 を 作成 し て いま 
す 。 つ まり 、 チ ナチ ェ ッ ク ボ ポッ クス が チェ ッ ク さ きれ て いれ ば 、 リ ス ド ポ ボッ クス か ら 6 選択 
され た 名 前 を 取得 し 、 チ ェ ッ ク さ れ て いな けれ ば テキ スト ボッ クス か ら 入 力 さ れ た 
名 前 を 取得 し ます 。 


P ェ ュ ゞ ate Sub Commmand1 C1icKk( ) 
Dim Msg AS 8 上 ヒエ nd 


Selec 上 Case CheckPos 
Case 1 


Msg = rist1.Text gg "が 選ば れ ま し た 。" 


Case 0 


Msg = rexkt1.Text g "が 選ば れ ま し た 。 
End Se1ec 


Labe12 .Caption = Ms 
End Sub 


リス ト ボ ックス で ユー ザー が リス ト か ら 選 択 し た 項目 は 、 リ スト ボッ クス コン ト 
ロー ル の [Text| プロ パテ ィ に 格納 され ます 。 こ の 値 を 調べ る こと で 、 選 択 さ きれ た 
項目 名 を 把握 で きま す 。 リ スト ボッ クス に 項目 を 設定 する 場合 は 、 プ ログ ラム デザ 
イン 時 は 、 プ ロ パ ティ リス ト に ある [Listl プロ パテ ィ で 設定 し ます 。 こ の リス ト 
項目 は 、 プ ログ ラム 実行 時 に 追加 と 削除 が で きま す (この 処理 は 、 次 の Lesson21 で 
行い ます ) 。 

まだ た 、 テ デキ スト ボ ックス に 入力 され た 次 学 も 、、 テ キズ スト よ ボッ クス ネコ ヨン トロ ー ル の 
[Textl プロ パテ ィ の 値 か ら 取 得 で きま す 。 


以上 で 完成 で す 。 プ ログ ラム を 実行 し て チェ ッ ク ボ ックス を クリ ッ ク し て くだ さ 
い 。 テ キス ト ボ ックス と リス ト ボ ックス の 有効 ・ 無 効 が 交互 に 切り 替わり ます 。 ま 
だ た 、 リ スト ボッ クス で 選択 し た 名 前 が 、 ラ ベル コン トロ ー ル に 表示 され ます 。 








LesSOnG20 チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル を 使 


チェ ッ ク ボ ックス コン トロ ー ル は 、 オ プシ ョ ン ポ ボタ ンコ ント ロー ル と 違い 、 単 独 で 
オン ・ オ フ が 設定 で きる コン トロ ー ル で す 。 表示 を 切り 替え た り 、 有 効 ・ 無 効 を 設定 す 
る な ど 、 多 く の 場 面 で 使わ れる コン トロ ー ル で す 。 使い 方 は に この よう に 簡単 な の で 、 
いろ いろ と 試し て くだ さい 。 


[LesSOn20.vDp] に チェ ッ ク ボ ックス コン トロ ー ル を 1 つ 追 加 し 、 
ラベ ルコ ント ロー ル の 表示 が 立体 文字 に な る よう に し て くだ さい 。 


ここ 


P ト 師 択 ブ ログラム 


ラベ ルコ ント ロー ル の 文字 を 妊 体 に する に は 、 ラ ベル コン トロ ー ル の 
[Fontltalic] プロ バ パティ を 「True」 に 設定 し ます 。 


解答 は 巻末 に 一 





者 馬 ワン ポイ ント アド バイ ス 


Select Case ステ ー ト メン ト は 、 他 方 向 に 処理 を 分 岐 する 場合 に 威力 を 発揮 する 、 
条件 分 岐 ス テー トメ ント で す 。S ら Select Case ステ ー ト メン ト で は 、「Case」 に 当て は 
ま ら な いも の を ーー 括 し て 処理 で きる よう に 、「Case Else」 節 が 用 意 さ ご され て いま す 。 こ 
れ は 、If ステ ー ト メン ト の 「Else」 と 同じ よう な 働き を し ます 。 

この 例題 プロ グラ ム で は 、 ら 方 向 し か 分 岐 し ませ ん で し た が 、 も っ と 多数 の 分 岐 処理 
を 作成 する 場合 は 、If ステ ー ト メン ト よ り も 記述 が すっ きり で きる の で 、S ら Select 
Case ステ ー ト メン ト を 使う ほう が いい で し ょ う 。 
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AS Lesson21.vhp 
@ VB6CD 
ヨコ Lesson21 


8G 


LlP の ジー 


Lssson21 
リス ト ボ ックス に 追加 し ます か ? 


コン ホ ポポ ックス で の リス ト 項 目 の 追加 と 削除 


リス ト ボ ポッ クス に リス ト 項 目 を 追加 し た り 削 除 す る テク ニッ ク と 、 メ ッ 


セー ジ の 様々 な 表示 方 法 を 覚え ます 。 


今回 作成 する プロ グラ ム 





全 手 


が K | | ym MR 





_I は MI の | いい え | | 


人 








彼女 の 名 前 を 


追加] ボタ ン を 
クリ ッ ク す る と … 


メッ セー ジ が 表示 


ご れる 


[は い ] ボタ ン を 
クリ ッ ク す る と … 


名 前 が リス ト に 
追加 ご れる 


リス ト ボ ポッ クス と テキ スト ボッ クス コン トロール を 合体 させ た コ 
ント ロー ル に 、 コ ン ボ ボッ クス コン トロ ー ル が あり ます 。 

この レッ ズン で は 、 コ ン ボ ボッ クス コン トロ ー ル を 使っ て 、 リ ス 
ト ボ ックス に リス ト 項 目 を 追加 ・ 削 除 す る プロ グラ ム を 作成 し ます 。 


LesSOn ら つ ] コン ボボ ックス で の リス ト 項 目 の 追 加 と 削除 


伯 コン トロ ー ル と プロ パテ ィ の 設定 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


Form] の [Caption] プロ バ パティ を 「 ガ ー ル フレ ン 
ド 名 簿 ] に 変更 する 











Fermr r Form _ー ヨ 
、 全体 | 項目 5 こと を ダン ルク リッ クジ 















BackColor 目 &H8BHInHUnF& -]| | 

BordarStyla 2 - 可 「 

etc ガー ルフ レン ド 名 簿 ] 値 を 入力 
| ClipControls True 





Tr 











ツー ル ボ ックス の [ComboBox] 調 を クリ ッ ク し 、 
フォ ー ム 上 に コン ボボ ックス を 配置 する 


ここ ゲン ワック 
の テス _T ロ El し と ぞ 
| その まま と こま で 
ドラ ッ グ 


プロ パテ ィ ウ ィ ン ド ウ で [Text]」 プロ バテ ィ の 値 を 0 
[彼女 の 名 前 を 入力 し て 下さ い 。」 に 変更 する 








この 操作 を 行う 前 に 、 作 
成 し た コン ボボ ックス コ 
ント ロー ル が 選択 され て 


い 。 








pH [List] プロ バテ ィ に 名 前 の リス ト を 設定 する 





ーー ーーー 才 | ここ を クリ ッ ク 





用 | ここ を クリ ッ ク 


唐 | 名 前 を 入力 


| 』Mlouselcon 








ここ を ダブ ルク リッ ク いる こと を 人 確認 し て くだ 
さ 


』8 プ 
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ツー ル ボ ックス の [CommandButton] | を クリ ッ 
ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 3 つ 配 置 する 


| 時 伝 壇 の 名 前 を 入力 し て 下さ いい c それ ぞ れ コピ ー 
の し て 配置 する 
| Commard1 | cmee| 還 (Comrmmand3 


各 コ マン ド ボ タ ン の [( オ ブ ジ ェクト 名 )] プロ パテ ィ 
と [Caption] プロ バ パテ ィ を 次 の 値 に 変更 する 








設 生 
各 ボ タン を 選択 し て か ら 、 
(オプ ジェ クト 名 )] と 
[Caption] プロ パテ ィ を 
設定 し て くだ さい 。 


プロ バテ ィ の 
の 











コマ ンド ボタ ン オブ ジェ クト 名 Caption 










| 彼 女 の 名 前 を 入力 し て 下さ い (。 ・| 


ツー ル ボ ックス の [Label] ' 傘 | を クリ ッ ク し 、 
フォ ー ム 上 に ラベ ルコ ント ロー ル を 配置 する 





| m Se 補 レン 





彼女 の 名 前 を 入力 し て 下さ いい 。 ・| 


(ザン ッ 
本 50 け ま ま ( こ と ま て 
ドラ ッ グ 








まい) 


LeSSOn ら 1] コン ボボ ックス で の リス ト 項 目 の 追 加 と 削除 


プロ バテ ィ ウ ィ ン ド ウ で [BorderStyle] プロ パテ ィ 
の 値 を [1 - 実 線 ] に 設定 する 













Label1 Labsl 


全体 | 項目 別 | 





ー| ーー ぐ 値 の 切り 替え 
セル を ダブ ルク リッ ク 
セル の 右端 に ある 「 補 | 


四 &H80OOOnnF& の を グリッ ク 和 も 


1 - 直人 明 覧 か ら 選 択 し て 値 を 切り 
1 - 実線 値 が 切り 替わる 替え る こと も で きま す 。 
Labsl] 


プロ パテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ の 値 
を 削除 する 


Label1 Labal 





『 





<| 


全体 | 項目 上 ここ を ダブ ルク リッ ク 
BackColor 貼 &H8nnnnnnF ぁ ] 


BackSty|= 1 - 二天 明 
BordesrSty|e 1 - 実線 


0) 完成 し た レイ アウ ト 











に IIzl 


彼女 の 名 前 を 入力 し て 下さ し 1。 ィ 


3 の さき ) 


ドー 





Ed 


委 F0rm1:ChoiceBtn-Click 


cx4g 拓 241 間 和幸 





|IChoiceBtn <| |Click ・| 


pP エ ュ ゞ で a モ @e Sub ChorceBtn C+1CK ( ) 
rabe11 .Caption = Combo1 .mext g "が 選択 され まし た 。" 
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引 FOrm1:AddBtn-Click 


1【 蘭 Projsct1 - Form1 (コー ト ) 





D1m ReSu] 上 AS エ nEeJer 
Dim Name AS Sting 


Name = Combo1 . ex 上 
Resu1t = MsgBox(" リ スト ボッ クス に 追加 し ます か ?", ゞ byeso ) 


Combo1 . AdQT エ tem Name 
EnQd TE 


| 
| 
| 
| TE Resu1t = vbYes Then 
| 
| 
| 












ョ Form1 :DelBtn-Click 


呈 


Pr ュ で a 上 e Sub De1Btn C1iock ( ) 
D1m ReGSu 和 1 上 As TnteqJer 
Dim Name AS Sr と ing 
Dim Msg AS8 St エ +ng 


| 
| 
| 
Name = Comlbo1 。 ex 上 | 
エ F Combo1 . エ 8 上 Coun モ = OO Then 

| 


El1se 
Msg = "リス ト ボ ックス か ら " g Name sg " を 削除 し ます か ? 
ReSu 七 = MsqBox (MSd, ゞ bYesNo ) 
エ F ReSu] 七 = ゞ YbYes Then 
Combo1 . Remoe エ tem Combo1 5 上 Tndexx 
下 nd エモ 
| EnQd エモ 
End Sub 


1 
i 


| 
| 
| 
| 
| 
| MsgBox "これ 以上 削除 で きま せん 
| 
| 
| 
| 











LesSSOn ら 1 コン ボボ ックス で の リス ト 項 目 の 追 加 と 削 








旧 コン ボボ ックス コン トロ ー ル は 、 テ キス ト ボ ックス コン トロ ー ル と リス トト ボック 
スコ ント ロー ル が 一 体 に な っ た コン トロ ー ル で す 。 ユー ザー か ら の 文字 入力 を 受け 
付け る こと が で き 、 な お か つり スト を ドロ ッ プ ダウ ン 表 示さ せる こと が で きま す 。 
例題 プロ グラ ム は 、 コ マン ド ボ タ ン と コン ボボ ックス を 使っ て 、 ユ ー ザ ー の 選択 
し た リス ト 項 目 を ラベ ルコ ント ロー ル に 表示 する と と も に 、 ユ ー ザ ー が 入力 し た 名 


前 を リス ト に 追加 し た り 、 リ スト か ら 削 除 す る 操作 を し ます 。 


コン ボボ ポ ボッ クス 








コン ボボ ックス で ユー ザー が 人 入力 し た 文学 、 ま た は リス ト か ら 大 択 し た 項目 は 、 
コン ボボ ックス コン トロ ー ル の [Text」 プロ パテ ィ に 格納 され ます 。 こ の プロ パテ 
ィ の 値 を 調べ る こと に よっ て 、 ユ ー ザ ー の 選択 を 把握 で きま す 。 

処理 は 、 配 置 し た 3 つの コマ ンド ボタ ン の 、Click イベ ント プロ シー ジャ で すべ て 
行い ます 。 ま ず 、[ 選 択 ] ボタ ン で は 、 コ ン ボ ボッ クス の [Text] プロ パテ ィ の 値 
を 、 そ の まま ラベ ルコ ント ロー ル の [Caption] プロ パテ ィ に 代入 し ます 。 


P ェ ュ で a モ @ Sub ChoiceBtn C1icK( ) 
rabe11 .Caption = Combo1.mext g " が 選択 され まし た 。 = 
下 nd Sub 





コン ボボ ックス の リス ト に 項目 を 追加 する に は 、AddItem メ ソ ッ ド を 使用 し ま 


【Addltem メソ ッ ド の 書式 】 


O ち ec . AdQdTtem 1tem, 1ndex 


obj ec 追加 の 対象 と な る オブ ジェ クト 名 を 記述 し ます 。 
item 追加 する 文字 列 (項目 名 ) を 指定 し ます 。 
index 追加 する 項目 を 配置 する 場所 を 番号 で 指定 し ます 。 省略 可 。 
オブ ジェ クト に コン ボボ ックス コン トロ ー ル を 指定 し 、AddItem の あと に 追加 す 


る 項目 名 を 記述 し ます 。 追加 し た 項目 名 は 、 リ スト の 最後 尾 に 順次 付け 加え られ て 
いき ます 。 リ スト の 任意 の 位置 に 追加 し た い 場 合 は 、Index に 追加 し た い 位置 を 番 
ぢ で 指定 し ます 。 た と えば 、 リ スト の 先頭 に 追加 し た けれ ば 、Index を 0 に 指定 し ま 
す 。 
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また 、 コ ン ボ ボッ クス コン トロ ー ル の [Sorted]」 プロ パテ ィ を 「True」 に 設定 す 
る と 、 リ スト 項目 は 自動 的 に 昇順 で 並べ 堆 え られ ます 。 た だ し 、 文 字 コ ー ド 順に 並 
ぶ の で 、 漢 字 は 読み が な どおり に 正しく 並ば な いこ と が あり ます 。 


この プロ グラ ム で は 、[ 追 加 ] ボタ ン の Cliick イ ベン ト プ ロ シー ジャ で 項目 の 追加 
を 行い ます 。 ま ず 、 コ ン ボ ボッ クス (Combo1) に 入力 きれ た 内 容 を 、 そ の [Text] 
プロ パテ ィ か ら 取 得 し 、 変 数 Name に 代入 し て お きま す 。 

だ し て 。、 メ タッ タージ ザ まみ タス 交 名 表示 し て \ い [は ゆい] ボタン が 押 き れ た と き 
(Result=vbYes の と き ) の み 、 リ スト の 追加 処理 を 行う よう に し ます 。[ い いえ ぇ ] ボ 
タン が 押さ れ た と き は 、 何 も 処理 を し ませ ん 。 


Name = Combo1 . Tex 上 


Resu1t = MsgBox(" リ スト ボッ クス に 追加 し ます か ?", ybyeso ) 
エエ ReSu1 ヒ 上 = ゞ YbYes Then 

Combo1 . AdQ エ tem Name 
End エモ 





メッ セー ジ ボ ッ クス を 表示 し て 、 追 加 の 確認 を 行う に は 、MsgBox 関数 に ボタ ン 
の 数 を 引数 で 付け 加え ます 。 

これ まで 、 メ ッ セ ー ジ ボッ クス は [OK] ボタ ン が 付い た タイ プ し か 使い ませ ん 
で し た 。 [は い ] [いい いえ] [キャンセル] な どの ボタ ン が 付い た メッ セー ジ ボ ッ クス 
を 使う に は 、 そ の ボタ ンタ イプ を 引数 と し て 同時 に 指定 し ます (P.193 の 表 参 照 ) 。 


MsgBox(" リ スト ボッ クス に 追加 し ます か ?", ゞ byesnNo ) 


引数 に ボタ ンタ イプ を 指定 する と 、 メ ッ セ ー ジ ボッ クス 関数 は 実行 時 に 、 ユ ー ザ 
ー が 押し た ボタ ン の 種類 を 戻り 値 と し て 返し て きま す 。 こ れ を 、 変 数 で 受け 止め て 、 
[は い ] ボタ ン (vbYes) が 押さ きれ た と きだ け リ スト に 項目 を 追加 する よう に 、TIfE ス 
テー トメ ント で 処理 を 組み 立て ます (P.194 の 表 参 照 )。 


Resu1t = MsgBox(" リ スト ボッ クス に 追加 し ます か ?", ypbyesNo ) 
エエ ReGSul 七 = ゞ YbYes Then 

Combo1 . AdQQ エ tem Name 
End TE 








LeSSO0nm つ 1 コン ボボ ックス で の リス ト 項 目 の 追 加 と 削 


< MsgBox 関数 で 使え る 主 な ボタ ンタ イプ と 指定 値 > 


記述 指定 (文字 定数 ) 数 値 指定 に ちっ と っ) セア スリ な 

vDOKOnly [OK] ボタ ン の み 

vbOKCancel [OK] と [Cancel] ボタ ン 
vbAbortRetrylgnore [中 止 ] [ 再 試行 ] [無視 ] ボタ ン 
vbYesNoCancel [は い ] [いい え ] [キャ ン セ ル ] 

vbYesNo [は い ] [いい え ] 

vbRetryCancel 再 試 行 ] [キャ ン セ ル 」 

vVbCritical [中 止 ] アイ コン と [OK] ボタ ン 
vbQuestion クエ スチ ョ シア イコ ン と OK] ポ ボタン 
Exclamation アイ コン と [OK] ボタ ン 
vbInformation 4 Information アイ コン と [OK] ボタ ン 

※ メ ッ セ ー ジ ボッ クス の タイ プ は 、 文字 定数 と 数 値 の どちら を 使っ て も か まい ませ ん 。 
また 、() 内 で 引数 を 指定 し た 場合 は 、 必 ず 変 数 で 戻り 値 を 受け 取ら な いと 、 実 行 エ ラー 
で 正常 に 動作 し ませ ん の で 注意 し て くだ さい 。 















ど 
つづ 


Pe 、 
へ 
へ 


トト 
OO 1「D 


vVDbExclamation 


0) 


@ ボ タン の 表示 例 









ぐ vbADortRetryI 互 nore > 


Project 1] 


[中 止 」 ボタ ン 、[ 再 試行 ] ボタ ン 、 








ー メ ッ セー ジ ボ ポッ クス の タイ ブ 。。 | | [無視 |] ボタ ン 


II ゲイ コン 付 ぎ メッ セー ジ ボ ポッ クズ (| は い 」 ボタ ン 、 
、 の ツ ッ セ ー ジ ポッ クス の タイ ブ [いい え ]」 ボタ ン 、[ キ ャ ン セ ル ] ボタ ン ) 


1 
1 








し 1 
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GO 








く 押 され た ポタ ン の 戻り 値 > 


記述 指定 (文字 定数 ) 数 恒 指 定 
vVDOK 













押さ れ た ボタ ン の 内 容 


| 1 | [OK タン 
vbCancel IN 昌 iv) | [Cancel] ボタ ン 
vbAbort [中 止 ] ボタ ン 
vbHetry | 4 | [ 再 試行 ボタン 















vVblgnore [無視 ] ボタ ン 
VbYes [は い ] ボタ ン 
VbNo [いい え ] ボタ ン 


今度 は 、 リ スト か ら 項 目 を 削除 する 処理 を 組み 立て ます 。 

コン ボボ ックス (まだ た は リス ト ボ ックス ) で 、 リ スト 項目 を 参照 する プロ パテ ィ 
に [ListCount] と [ListItndex] プロ パテ ィ が あり ます 。[ListCount] プロ パテ ィ 
は 、 そ の リス ト ボ ックス に いく つの リス ト 項 目 が ある の か 、 総 項目 数 を 格納 し て い 
る プロ パテ ィ で す 。 ま た 、[ListIndex] プロ パテ ィ は 、 現 在 選 択 さ きれ て いる 項目 が 、 
リス ト の 先頭 か ら 何 番目 な の か を 格納 し て いる プロ パテ ィ で す 。 これら の プロ パテ 
ィ を 使っ て 、 リ スト ボッ クス の 現在 の 状態 を 把握 し ます 。 

まず 最初 に リスト に 項目 が ある の か な い の か を 調べ ます 。 Combo1 の 
[ListCount] プロ パテ ィ の 値 が 「0] で あれ ば 、 リ スト は 空 で すか ら 項 目 の 削除 は で 
きま せん 。 そ の た め 、 こ の プロ パテ ィ の 値 を 調べ 、 リ スト が 空 で あれ ば 削除 で き な 
いと いう メッ セー ジ を 表示 させ ます 。 





Name = Commbo1 . ex 
エ F Combo1 . 可 st 上 Count = O Then 
MsgBox "これ 以上 削除 で きま せん 


[ListCount] プロ パテ ィ が 「0] で な けれ ば 、 リ スト を 削除 で きま す の で 、 そ の 処 
理 を 組み 立て ます 。 

リス ト か ら 項 目 を 削除 する に は 、RemoveItem メ ソ ッ ド を 使い ます 。 こ の メソ ッ 
ド は 、 削 除 す る 項目 を 、 リ スト の 番号 で 指定 し ます 。 追加 に 使っ た AddItem は 項目 
名 で 指定 し まし た が 、 削 除 の 場合 は リス ト の 順番 で 指定 し ます 。 そ こ で 、 現 在 選択 
され て いる 項目 の 番号 を [ListIndex] プロ パテ ィ か ら 取 得 し ます 。 そ し て 、 こ の 番 
号 を 指定 し て Removeltem メ ソ ッ ド を 実行 し ます 。 

この と き 、 追 加 の 場合 と 同様 に 、 メ ッ セ ー ジ ボッ クス で 削除 を 確認 し 、[ は い ] ボ 
タン が 押さ れ た と きだ け 削 除 処理 を 実行 し ます 。 








LesSOn1 コン ボボ ックス で の リス ト 項 目 の 追加 と 削 


【Removeltem メソ ッ ド の 書式 】 


〇 Ob] ec . ReGmOeG エ em 1ndex 


obj ec 削除 の 対象 と な る オブ ジェ クト 名 を 記述 し ます 。 
index 削除 する 項目 を 配置 する 場所 を 番号 で 指定 し ます 。 
下 1Se 


Msg = "リス ト ボ ックス か ら * g Name g " を 削除 し ます か * 
ReGSu 七 = MsqBoxx (MS , で bYesNo ) 
エエ F ReSsu] 七 = ゞ YbYes Then 
Combo1 . Remoe エ tem Combo1 . エ Ss 上 Tndex 
End エモ 
End TE 


0 。 以上 で 完成 で す 。[ 追 加 ] [削除 ] ボタ ン を 使っ て リス ト 項 目 を 操作 し て くだ さい 。 
現在 リス ト に ある 項目 を 追加 ・ 削 除 す る こと が で きま すし 、 新 し く 入 力 し た 項目 
も 追加 ・ 削 除 す る こと が で きま す 。 


処理 を 人 し て 動作 を 安全 に する 


この プロ グラ ム は エラ ー 処 理 を 考慮 し て いま せん 。 例え ば 、 起 動 し た 直後 に [削除 ] ボタ ン 
だ グリ ガッ ク し 。、 メ オッ セー ジ ボ ッ クス で はい ] ポ ボタン を クリ サック する と 、|[ プロシージャ の 呼び 
出し 、 ま た は 引数 が 不正 で す 。]」 と いう エラ ー が 表示 きれ プロ グラ ム が 止ま っ て し まい ます 。 

これ は Combol の [ListIndex] に 無効 な 値 「-1] が 格納 され て いる か ら で す 。 空 の リス ト ボ 
ックス に 対し て [削除 )] ボタ ン を クリ ッ ク と きも 「-1| が [ListIndex] プロ パテ ィ に 入力 され 
ます 。 こ の た め Removeltem メ ソ ッ ド が 実行 で き な い の で エラ ー に な り ま す 。 

この エラ ー を 回 避 す る に は [はい ] ボタ ン を クリ ッ ク し た 後 、 さ きら に [ListIndex] プロ パテ 
ィ の 値 を 調べ て 処理 を 分 岐 し ます 。 例 えば 、 


エ F Combo1 . エ 5 上 T エ ndex < 0 hen 
処理 1 

Else 
Removertem メゾ ソ ッ ド 

End 1 ュ E 


な どの 文 を 追加 し 、 処 理 1 で 注意 メッ セー ジ を 表示 すれ ば 、Removeltem の 実行 エラ ー を 防ぐ こ 
と が で きま す (Lesson21.vbp] の コメ ント 部 分 を 参照 し て くだ さい )。 こ れ は プロ グラ ム を 正 
確 に 動作 きせ る た め の エ ラー 処理 の 一 例 で す 。 エ ラー の 対処 法 に は 他 に も いろ いろ と あり ます 。 
エラ ー 処 理 の 実際 に つい て は Lesson32 以降 を 参照 し て くだ さい 。 
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な お この プロ グラ ム で は 、 こ れ ら の 操作 は あく まで も プロ グラ ム 実 行 時 に その 場 
限り で 行わ れる 操作 で あり 、 プ ログ ラム を 終了 する と リス ト 項 目 の 変更 は 失わ れ て 
し まい ます 。 

リス ト 項 目 の 変更 を 、 次 回 プロ グラ ム 起 動 時 に 復元 する に は 、 別 の ファ イル に 保 
存する な どの 処置 が 必要 に な り ま す (Lesson23 を 参照 ) 。 


リス ト ボ ックス ・ コ ン ボ ボッ クス な ど は 、 あ ら か じ め 入 力 項目 が わか っ て いる も の 
(た と えば 都 道 府 県 名 と か 取引 先 企業 な ど ) を 選択 する の に 便利 な コン トロ ー ル で す 。 
ユー ザー の 入力 操作 を 助け 、 操 作 性 を 向上 させ る の に 使う と 効果 の 高い コン トロ ー ル 
で すね 。 

また 、 コ ント ロー ル 間 の 連携 も や 、 操 作 す る コン トロ ー ル と プロ パテ ィ を 式 で 指定 し 
て 行う つの で 、 さ ほど 難し く あ り ま せん 。 モ ジュ ー ル レベ ル 変 数 と 組み 合わ せ て 使う と 、 
間 単 に コン トロ ー ル 間 の 処理 を 組み 立て る こと が で きま す 。 


点 で 、[ 削 除 ] ボタ ン を 無効 に する よう に 変更 し て くだ さい 。 


O1 「Lesson ら 1 .vDp] の プロ グラ ム を 、 最 後 の リ スト 項目 が 削除 され た 時 


【 ヒ ント 】 

コマ ンド ボタ ン の 無効 化 は 、[Enabled] プロ パテ ィ を 使い ます 。 こ れ 
を 、 ど この プロ シー ジャ で 処 理 す る の か が ポイ ント で す 。 

また 、[ 削 除 ] ボタ ン を 無効 に し た ら 、 今度 項 目 が 追加 され た と き に 有 
効 に 戻さ な いと 削除 で きま せん 。 こ の 処理 も どこ で 行う の か 、 考 えて く 
だ さい 。 


解答 は 巻末 に 一 





者 馬 ワン ポイ ント アド バイ ス 


リス ト の 追加 ・ 削 除 は 、 リ スト ボッ クス コン トロ ー ル も コン ボボ ックス コン トロ ー ル 
も 、 ま っ た く 同 じ メ ソ ッ ド を 使っ て 行え ます 。 追加 は 「Addltem」、 削 除 は 
「Removeltem] で す 。 ま た 、 リ スト 項目 を 参照 する プロ パテ ィ 「ListCount」、 
[ListIndex」 も 同様 に 使う こと が で きま す 。 








プロ グラ ム を 作る 上 で 欠か せな い の が 、 フ ァイル を 操作 する テク ニッ ク で す 。 設 
し た 項目 や デ テー タ な ど を ファ イル に 保存 し 、 ま た 読み 込ん で 使用 する た め に は 、 
Visual Basic で ファ イル を 操作 する 知識 を 身 に 付け て お く 必 要 が あり ます 。 


し か し 、 だ か ら と いっ て 難し いわ け で は あり ませ ん 。 手軽 さ が 売 り も の の Visual 

Basic らし く 、 と て も 簡単 に ファ イル の 読み 書き が 実行 で を る の で す 。 

この レッ スン で は 、 フ ァイル の 読み 書き と 、 リ スト ボッ クス ・ ダ イア ログ ボッ クス 

か ら フ ァイル 名 を 取得 する 方 法 を マス ター し ます 。 

今日 の レッ スン で 解説 する 項目 

コテ キス ト フ ァイル (文字 だ け の ファ イル ) を 読み 込ん で 、 他 の コン トロ ー ル に 
出力 する 操作 手順 

コル ー プ 処理 の 作り 方 

独自 の プロ シー ジャ を 作成 し て 、 他 の プロ シー ジャ か ら 呼 び 出 す 方 法 

コテ キス ト フ ァイル の 、 シ ー ケ ン シ ャ ル 書 き 出 し を マス ター 

コン ボボ ックス の リス ト 項 目 の 設 定 を 行う テク ニッ ク 

ココ ドラ イブ ・ デ ィ レ クト リ ・ フ ァイル の 各 リ スト ボッ クス の 使い 方 と ファ イル 名 
の 取得 方 法 
ココ ント ロー ル の ドラ ッ グ S&S ドロ ッ プ の 設定 方 法 











テキ スト ファ イル を 読み 込む 


テキ スト ファ イル を 読み 込む 方 法 、 ル ー プ 処理 の 作り 方 、 お よび 独自 の 
プロ シー ジャ を 他 の プロ シー ジャ か ら 呼 び 出 す 方 法 を 覚え ます 。 





ラ 回 作成 する プロ グラ ム 



















ファ 19CE) 計 案 (E) 表示 > 7 ロク KP) 書式 O) テハ ッ XD) | 理生 (By 219-GJD ダケ ゲ 24 クー ル D アド イ KS ウツ FOO て kWD | プロ チラ ム を 
8 ご: 神 Cy 8 。 楓 9 まつ て > に に な ※ om 
上 実行 する と … 
ーー =EEI 
N 包 AN | pe 
ei | の 


りこ 3 


| 手 時 3 お 
〇 ロコ 
ロ 


第 5 日 
1 時 限 目 


い 和 4 


うま く 開 ナ すま し た か ? 
この ファ イル | は Lesscn 22 サ ン ブ ゴル 用 の 


る | 
AS: Lesson22.vhp | 「readme txt」 で す 。 





[Readme.txt| ファ イ 
ル の 内 容 が 表示 され る 


ec VB6CD 上 | 人 お 読み くだ さい . on 

の 肖 この ブロ グラ ム | は 、 同じ フォ ル ダ 内 に ある 「readme.txt」 と いう 了 テキ スト 
3 目 フ ァイル を 読み 込ん で 、 テキ スト ボッ クス コン トロ ー ル に 出力 する プロ グラ 
ヨコ Lesson22 ム で す 。 





| 
ま 
| 
上 コード の 醒 説 】 | 
上 コー ド を 遇 説 する 前 に 、 ファ イル 探 人 介 に 付い て 説明 し て お きま す 。 | 


この プロ グラ ム は 、 付 属 CD-ROM の プロ ジェ クト と 同じ フォ ル ダ 
に ある |「Readme.txt」 と いう テキ スト ファ イル を 読み 込ん で 、 テ 
キス ト ボ ックス コン トロ ー ル に 出力 する プロ グラ ム で す 。 
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LeSSOn ら つつ テキ スト ファ イル を 読み 込む 


租 コン トロ ー ル と プロ パテ イィ の 設定 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。「RHeadme.txt」 ファ 
イル を この プロ ジェ クト と 同じ フォ ル ダ に コピ ー し て お いて くだ さ 
し \)。 


フォ ー ム の 右 下 隅 に ある サイ ズ 人 変更 ハン ドル ( 黒 四 
月 ) を ドラ ッ グ し て フォ ー ム の サイ ズ を 広げ る 


] | Ei 湯前 


フォ ー ム の サイ ズ は 
Height : 4200 


Width : 7 ら 00 
を 目安 に し て くだ さい 





プロ バテ ィ ウ ィ ン ド ウ で [BorderStyle] プロ バテ ィ 5 
の 値 を [1 - 固定 (実線 )] に 設定 する ペ プ 値 の 切り 益 え 


[BorderStyle] プロ パテ 
ィ の セル を ダブ ルク リッ 


に ー | ク し て 、「0- な し 」 _ 「1- 
Fee ros =! | 固定 (実線) 」 一 「 可 変 」 





















可変 
年 1 本 | 項目 ) 1 ここ を クリ ッ ジ クツ っ … と いう よう に 順に 値 

| 必 DD ほ ョ コロ ご 1 - SD に 

「 uto Redrawy False ピン ここ を ク リッ ク 

BackColor 回 &H8OnOOnnF& 

| eS 1: 

Caption ンー 

| ClpControls で と と を プン リック 

| ControlBox 

DrawMode 

DrawStyls 5 - ロ ] 実 ツール の トウ 


第 5 日 1 時 限 目 ファ イル を 操作 する 





[MultiLine] 
〆 プ ヒ リバ ティ 
この 値 を 「True」 に 設定 
する と 、 複 数 行 の テキ ス 
ト の 取得 と 表示 が で きる 
ああ 2 に な か なり ま すず す 。 


[ScrollBarg] 
デ 2 ティ 
この 値 を 「3- 両 方 | に 設 
定 す る と 、 水 平 と 垂直 ス 
クロ ー ル バー の 両方 が テ 
キス ト ボ ックス に 表示 さき 
ます 。 
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』Text1 Tsx:xtBol 
| 全体 | 項目 風 | 


| Mouselcon 

、 語 軸 困 に マ 
| OLEDrag Mods 
OLE Drop Mods 


| PasswordChar | 
| RightToLsft False ーー - 邊 





| OLEDrop Modsa 
| PasswordChar 


| |RiehtToLsft 





ツー ル ボ ックス の [TextBox] ボタ ン 国 を クリ ッ 
ク し 、 フ ォ ー ム 上 に テキ スト ボッ クス を 配置 する 


ここ を クリ ッ ク 





ーー その まま ここ まで 
| じ ジ ウッ ン 


プロ バテ ィ ウ ィ ン ド ウ で [MultiLine] プロ パテ ィ の 
値 を |True」 に 設定 する 
Fn と ィ ma 1 1 
と 
E 












(な し 
n - 尋 定 値 





True 


Fa ほ = 








IScrollBarS] プロ パティ の 値 を 「3 - 両方 ] に 設 
する 





を ジリ ッ ク 


の リッツ 
ここ を ンジ リック 








LeSSOn つ つ テキ スト ファ イル を 読み 込む 


ツー ル ボ ックス の [CommandButton] | を クリ ッ 
ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 












EC と ブリック 
0 その まま ここ まで 
テ ブ 、 る ドラ ツ グ 


プロ パティ ウィ ンド ウ で [Caption] プロ パテ ィ の 値 |Se = フリ タフ 人 





ここ ベン 選 
を | 終了 |] に 変更 する 択 
この 操作 を 行う 前 に 、 作 
Pi 記 ィ ー Command1 ' ] 7 と ンマ ン ド ボタ ンコ 
ント ロー ル が 選択 され て 
|ICommand1 CommardButtorn z』 | いる こと を 確認 し て くだ 
王 ] 本 | 項目 | 


さい 。 
ここ を タフ ルフ クリック 












1 9 


必 D= ョ r ョ ロロ 







BackColar | | &H8HnHnnnF& 
ご ョ nce | F ョ |== 
じ a ョ ption 了 | 終了 」 を 入力 


じ ョ ロ = ミ = ミ = ョ lid ョ tion True 


に 3 完成 し た レイ アウ ト 





終了 
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ョ Form1: C0mmand1- Click 

















_ Private Sub Command1 C11cCK( ) | 
本 Sub | 
邊 Form1: Form- Load 

EE 

_ Private Sub Form TLoad ( ) | 
| Ca11 正 i1eRead 

半 Sub 


|。 目 9 TRG IO 症 


pcivate Sub ri1eRead() | 
Dim BuFE1 As St 上 エ ュ ng | 
Dim BuFF2 As St 上 エ ュ ng | 

1 





Open App .Path & " 笠 Readme . 上 ヒヒ" 正 O エ エロ pu モ As 提 1 

Do Whi1e Not EOF(1) | 
| Line Tnpu 井 1, BuFEE1 | 
| BufE1 = BuEF1 + Chr(13) + Chr(10) | 
| BuEF2 = BuFEF2 + BufEF1 | 
LOOp 

ex 1 。Gx 七 = BuFEFE2 

| C1ose 提 1 

End Sub 


本 生 80NPPE 




















LeSSOn の つ テキ スト ファ イル を 読み 込 


コー ド を 解説 する 前 に 、 フ ァイル 操作 に つい て 説明 を し て お きま す 。 
ファ イル を 読み 込む 場合 は 、3 つ の 手続 き が 必要 に な り ま す 。 

(① ファ イル を 開く 

② ファ イル の 中 身 を 取り 出す 


(3 ファ イル を 閉じ る 

最初 の | ファ イル を 開く 」 と いう の は 、Windows の ファ イル シス テム に 対し て 、 
ファ イル に アク セス する た め の 処 理 を 行う 意味 の こと を いい ます 。 こ の 操作 は 、 
Open ス テー トメ ント が 行い ます 。 

2 つめ の | ファ イル の 中 身 を 取り 出す ] と いう 操作 は 、 文 字 ど お り フ ァイル の 中 
の デー タ を 取り 出す こと を いい ます 。 これ は 、Input# ス テー トメ ント また は Line 
Input# ス テー トメ ント が 担当 し ます 。 

最後 の 「 フ ァイル を 閉じ る 」 と いう の は 、Open ス テー トメ ント の 逆 で 、 
Windows の ファ イル シス テム に 対し て ファ イル へ の アク セス を 終了 する こと を いい 
ます 。 これ は 、Close ス テー トメ ント が 担当 し ます 。 


ファ イル 読み 込み の 「3 つの 手続 き 」 se プロ シー ジャ ) 





ファ イル へ の アク セス は 、 フ ァイル 名 を 使う 場合 と | ファ イル 番号 ] を 使う 場合 
の 2 と お り が あり ます 。 フ ァイル 名 は 、 ア クセ ス す る ファ イル 名 を 、 ド ライ ブ 名 も 


含め た フル パス で 用 いま す 。 
ファ イル 番号 は 、Open ス テー トメ ント で ファ イル に アク セス し た と き に 付加 す 


る 番号 で 、 フ ァイル を 開く 順番 に 1 か ら 適 用 し ます 。 


な 撤 。 . プロ ダラ ム の コー ド の 孝和 男 に ん り ま し ょ よう 。 この プロ ゲタ ダム は 。 ブログ 
ム 起 動 時 に 、 同 じ フ ォ ル ダ に ある 「Readme.txt| と いう ファ イル を 読み 込ん で 、 
キス ト ボ ックス コン トロ ー ル に 表示 し ます 。 


プ 
テ 





第 5 日 1 時 限 目 ファ イル を 操作 す 








プロ グラ ム 起 動 時 に 処理 を 行う の で 、Form の Load イベ ント プロ シー ジャ で ファ 
イル の 読み 込み 処理 を 行い ます 。 

た だ し 、 こ の プロ グラ ム で は 、 別 に 新しい プロ シー ジャ 「FileRead()」 を 作成 し 
て 、 こ こ で 実際 の 処理 を 記述 し 、Form の Load イ ベン ト プ ロ シー ジャ で は 、 
FileRead() プ ロ シ ー ジ ャ を 呼び 出す だ け に し ます 。 





新しい プロ シー ジャ を 作成 する 場合 は 、 コ ー ド ウィ ンド ウ を 「 モ ジュ ー ル 全体 を 
連続 表示 」 に 切り 替え 、 行 の 最 下 部 に 「Private Sub FileRead()」 と プロ シー ジャ 名 
を 人 入力 し ます 。 これ で 、 自 動 的 に プロ シー ジャ が 組み 込ま れ ま す 。 

ファ イル の 読み 込み 操作 は 、 す べ て この プロ シー ジャ で 処理 し ます 。 






| (GenerabD) 

Private Sub Command1_Click 0 
n 

End Sub_ 


Private Sub Form_Load() 
1 Call FileRead 
間 較 FedSub 


| Private Sub FileRead〈) 
End Sub 





ファ イル の 読み 込み 処理 は 、 最 初 に 説明 し た 3 つの 手続 き に そっ て 作成 し て いき 
ます 。 ま ず 、 フ ァイル の 中 身 を 格納 する た め の 変 数 「Buffl | [Buff2| を 用 意 し て お 
きま す 。 


Dim BuFF1 AS S 上 と エ ュ ngd 
Dim BuFF2 AS S エ ind 


次 に Open ステ ー ト メン ト を 使っ て 、 フ ァイル に アク セス し ます 。 


ユー ザー 定義 プロ シー ジャ 


Visual Basic で は 、 プ ログ ラマ が 自由 に プロ シー ジャ を 作成 で きま す 。 そ の 場合 は 、Sub ステ 
ー ト メン ト を 使っ て 、 コ ー ド に 記述 し ます 。 記述 す る コー ド は 、 フ ォ ー ム や コン トロ ー ル の イ 
ベン ト プ ロ シー ジャ と 同じ コー ドウ ィ ン ド ウ を 使っ て も か まい ませ ん し 、 専 用 の 「 標 準 モ ジュ 


ー ル 」 を 追加 し て ここ に 記述 し て も か まい ませ ん 。 

Sub ス テー トメ ント に は 、 先 頭 に キー ワー ド が 付け られ ます 。「Private] は 、 同 一 モジ ュー ル 
内 の すべ て の プロ シー ジャ か ら 参 照 可能 に な り ま す 。「Public」 を 付け る と 、 そ の プロ グラ ム の 
すべ て の モジ ュー ル の 、 す べ て の プロ シー ジャ か ら 参 照 で きる よう に な り ま す 。 プ ロ シ ー ジ ャ 
を 作成 する 場所 に あわ せ て 、 使 い 分 け て くだ さい 。 











LeSSOn つ の つ テキ スト ファ イル を 読み 込 


【Open ステ ー ト メン ト の 書式 】 
Open Fi1ename Fo mode As 提 FEi1eNo 


Fi1ename アク セス する ファ イル 名 を 記述 し ます 。 
mode ファ イル を 開く 際 の モー ド を 指定 し ます 。 
・ エ Tnpu 上 シー ケン シャ ル 入 力 モ ー ド 
・Output シー ケン シャ ル 出 力 モー ド 
・Random ラン ダム アク セス モー ド 
・Binary バイ ナリ モー ド 
・Append シー ケン シャ ル 出 力 の 追記 モー ド 
Fi1eNo ファ イル 番号 (ファ イル を 開い た 順番 ) 
| Readme.txt] ファ イル は 、 プ ロジ ェクト ファ イル と 同じ ディ レク トリ に ある の 
で 、| App.Path & \Readme.txt | で 参照 し ます 。[AppPath] プロ パテ ィ は 、 プ ロ 
グラ ム (App オ ブ ジ ェクト ) が 実行 きれ て いる ディ レク トリ まで の フル パス を 取得 
する た め の プ ロ パ ティ で す (P.154 参照 ) 。 
そし て 、 こ の ファ イル を シー ケン シャ ル に (ファ イル の 先頭 か ら 順 番 に ) 読み 込 
む |Input」 モー ド で 開き ます 。 最初 に ファ イル を 開く の で 、 フ ァイル 番号 は 「1 
に な り ま す 。 
これ で 、|Readme.txt] ファ イル が 開か れ 、 フ ァイル の 中 身 に アク セス で きる よ 
うに な り ま す 。 


OpeGn ADp.Pah & "Readme . 上 上 " 正 O エ エロ pu モ As 提 1 





ファ イル を 開い た ら 、 中 身 を 取り 出し ます 。 

ファ イル の 中 身 は 、Line Input# ス テー トメ ント を 使っ て 取り 出し ます 。Line 
Input# ス テー トメ ント は 、1 回 の 実行 で ファ イル の 先頭 か ら 1 行 分 だ け (改行 コー 
ド ま で ) を 取り 出す ステ ー ト メン ト で す 。 


【Line Input# ステ ー ト メン ト の 書式 】 
ユエ mG エ n ロ pu 七 井 下 ミ 1eNo, readbuEFFe ェ 


Fi1eNo open ステ ー ト メン ト で 実行 し た と き の フ ァイル 番号 を 指定 し ます 。 

ェ readbuFFe ェ 読み 込ん だ ファ イル の 中 身 を 格納 する 変数 を 指定 し ます 。 

すでに 、Open ス テー トメ ント で ファ イル 番号 を #1 に 指定 し て 開い て いま すか ら 、 
この 番号 を 使い ます 。 ま た 、 了 取り出し た ファ イル の 中 身 は 、 変 数 Buffl に 格納 し ま 
す 。 これ で 、 一 行 分 の ファ イル の 読み 込み が 行わ れ ま す 。 


エモ mG エ npu 七 井 1, BuFEF1 


第 5 日 1 時 限 目 ファ イル を 操作 す 





// 何 行 に も わた る ファ イル の 中 身 を 取り 出す に は 、 繰 り 返 し この ステ ー ト メン ト を 





実行 する 必要 が あり ます 。 

そこ で 、Do While..Loop ス テー トメ ント を 使用 し ます 。 こ の ステ ー ト メン ト は 、 
指定 し た 条件 に 達する まで 、 繰 り 返 し 処理 を 実行 する ルー プ 処 理 の ステ ー ト メン ト 
に 


【Do While..….Loop ステ ー ト メン ト の 書式 】 
Do Whi1e 条件 式 


衝 件 式 が 満足 され て いる 間 は 、Loop まで の 間 に 記 述 し た 処理 を 繰り 返し 行い ます 。 
そし て 、 条 件 式 が 満足 で き な く な っ た ら 、 ル ー プ 処理 は 終了 し ます 。 


この プロ シー ジャ で は 、 ル ー プ の 条件 に EOF 関数 を 使っ て 、 フ ァイル が 終端 まで 
達し た か どう か を チェ ッ ク し 、 フ ァイル の 端 に 達し て いな けれ ば 処理 を 繰り 返す 
よう に 、 ル ー プ を 設定 し て いま す 。 
CE Et 上 


EOF ( Ei1eNo ) 


EOF 関数 は 、 引 数 に ファ イル 番号 を 指定 する と 、 そ の ファ イル の 読み 込み が 行わ 
れ て いる 際 に 、 読 み 込み 位置 が ファ イル の 終端 に 達し て いる と 真 (True) を 返す 関 
数 で す 。 

ファ イル の 読み 込み 位置 は 、 一 回 読み 込み が 行わ れる と 、 最 後に 読み 込ま れ た 文 
学 の 次 の 位置 に 移動 し ます 。EOF 関数 を 使う と 、 フ ァイル の 読み 込み 位置 が 最後 に 
な っ た か どう か を 判断 する こと が で きま す の で 、 こ れ を ルー プ の 条件 に 加え れ ば 、 
ファ イル の 最後 まで 読み 込み が 実行 きれ た か どう か を 判断 する こと が で きま す 。 

そし て 、Not 演 算 子 と 組み 合わ せれ ば 、「 フ ァイル が 終端 に な っ て いな い 限 り 」 と 
いう ルー プ の 条件 を 作れ ます 。 


ひら 改め て 、 プ ロ シ ー ジ ャ の ルー ププ 処理 を 整理 する と 、 





① フ ァイル の 読み 込み 位置 が ファ イル の 終端 に な っ て いな けれ ば ルー プ を 実行 し 、 
Line Input# ス テー トメ ント を 使っ て 、「Readme.txt」 か ら 1 行 分 の 文章 を 読み 
込み ます 。 

② 読 み 込 ん だ 文章 は 変数 Buff1 に 格納 し 、 改 行文 字 (Chr(13)+ Chr(10)) を 付加 し 
て 再度 変数 Buffl に 代 人 し て お きま す 。 








LeSSOn つ つ テキ スト ファ イル を 読み 込 





③ 変 数 Buff2 に 、Buff1 の 内 容 を 追加 し 、 再 度 変数 Buff2 に 代入 し ます 。 

もう一度 ルー プ の 先頭 に 戻り 、EOF 関数 で ファ イル の 読み 込み 位置 が 終端 に き 
て いな いか どう か を チェ ッ ク し 、 終 端 で な けれ ば さら に も う 1 行 分 、 文 章 を 読 
み 込 ん で 変数 に 格納 する 作業 を 行い ます 。 

⑤ 変 数 Buff2 に は 、 文章 が 追加 きれ る 形 で どん どん 代入 きれ て いき ます 。 


ルー プ 処 理 に お ける ファ イリ の < ソ 






コ 
| 行 目 追加 


Do Whi1e No EOF (1 ) 
mn ら G エエ npu 提 1, BuFE1 
Bu 正 正 ] = BuFF1 + Ch と (13) + Chr(10) 
BuF 正 2 = BuFEF2 + BuE 下 1 

OO や 


年 人 | 1 行 分 を 読み 込ん だ と ころ で 、 改 行 コー ド を 付加 し て いま す 。 こ れ は 、 テ キス ト 
ボッ クス コン トロ ー ル に 文章 を 表示 する 際 に 、 き れい に 改行 し て 表示 する た めで す 。 
Line Inputf ス テー トメ ント で は 、 改 行 コ ー ド は 読み 込ま れず 、 文 字 コ ー ド し か 読 
み 込 まれ な いた め 、 変 数 に 格納 する 際 に わざ わざ 付加 し て いま す 。 

改行 コー ド を 付加 する に は 、Chr 関 数 を 使用 し て いま す 。 こ の 関数 は 、 引 数 に 文 
子 の コー ド 番 号 (ASCII コー ド な ど ) を 指定 する と 、 そ の 文字 コー ド に 対応 する 文 
字 を 返し ます 。 改行 コー ド は 通常 の 文字 コー ド で は な い の で (制御 コー ド と 呼ば れ 
て いま す )、ASCIL コ ー ド を 使っ て 変数 に 埋め 込み ます 。 

ちな み に 、Windows で は コー ド 13 (Chr(13)) の キャ リッ ジリ ター ン (CR) と コ 
ー ド 10 (Chr(10) の ライ ン フ ィ ー ド (LF) と を 組み 合わ せ て 改行 処理 を し て いる 
の で 、 こ の 2 つ を 変数 に 追加 し て お きま す 。 他 の 文字 に つい て は P.408 の 付録 
| ASCII 文字 コー ド 一 覧 」 を 参照 し て くだ さい 。 


旧 旧 Line Input# ス テー トメ ント で 読み 込み を 続け 、 フ ァイル の 終端 まで 達する と 、 
Do While.Loop ス テー トメ ント は 、 ル ー プ の 条件 が 一 致し な いた め 、 ル ー プ 処理 を 
停止 し ます 。 

変数 Buff2 に は 、 ル ー プ が 回 っ た 分 だ け の 行 数 の 文章 が 格納 され て いま すか ら 、 
その まま Buff2 を テキ スト ボッ クス コン トロ ー ル の [Text] プロ パテ ィ に 代入 し ま 
す 。 





第 5 日 1 時 限 目 ファ イル を 操作 す 





テキ スト ボッ クス コン トロ ー ル は 、[MultiLinel プロ パテ ィ を True に 設定 し まし 
た 。 こ れ で 、 テ キス ト ボ ックス は 複数 行 に わた る 文章 を 操作 で きる よう に な っ て い 
ます 。 ま た 、[ScrollBars| プロ パテ ィ も 、 縦 横 の スク ロー ル バ ー が 表示 され る よう 
に 設定 し て あり ます の で 、[Text] プロ パテ ィ に 代入 し た 内 容 が テキ スト ボッ クス 
コン トロ ー ル の サイ ズ を 越え て いる 場合 は 、 自 動 的 に スク ロー ル バ ー が テキ スト ボ 
ックス に 表示 され る よう に な り ま す 。 


ex モ 上 1 。 Tex 七 = BuFEFE2 


最後 に 、 フ ァイル か ら す べ て の 読み 出し が 終了 し た 時 点 で 、Close ステ ー ト メン 
ト を 使っ て ファ イル を 閉じ て お きま す 。Close ス テー トメ ント は 、 フ ァイル 番号 を 
指定 する だ け で 、Windows の ファ イル シス テム に 対し 、 フ ァイル を 閉じ る 処理 を 行 
のみ て ん ます 。 


C1ose 提 1 


以上 で 、 フ ァイル の 読み 込み 処理 を 行う プロ シー ジャ が 完成 し まし た 。 後 は 、 フ 
ォ ー ム の Load イ ベン ト プ ロ シー ジャ で この プロ シー ジャ を 呼び 出す だ け で す 。 
プロ シー ジャ で 別 の プロ シー ジャ を 時 び 出 ず に は 、~Cal ステ ー ネ メ ント を 便 用 し 
ます 。 こ の と き 、 呼 び 出 す プ ロロ シー ジャ は (0 を は ず し た プロ シー ジャ 名 だ け を 記 
述 し ます 。 


P エ ュ ゞ で a モ 6 Sub Form TLoad ( ) 
Ca11 Fi1eRead 
End Sub 


て し て 、 コ マン ド ボ タ ン に プロ グラ ム の 終了 処理 で ある End ス テー トメ ント を 記 
述 し て 完成 で す 。 プ ログ ラム を 起動 する と 、 同 じじ フォルダ に ある 「Readme.txt| フ 
ァイル が 読み 込ま れ て 、 テ キス ト ボ ックス コン トロ ー ル に 表示 され ます 。 


WII 


ルー プ フ 負 


1 つの 処理 を 何 回 も 繰り 返し 実行 する こと を 「 ル ー プ 処理 | と いい ます 。 Visual Basic で は 、 
ルー プ の 形 胡 で いく つか の ステ ー ト メン ト が 用 意 さ きれ て いま す 。|Do While Loop」 は 、 条 件 を 


指定 する と その 条件 が 満足 され て いる 間 、 指 定 し た 処理 を 繰り 返し ます 。 何 回 ルー プ が まわ る 
か は 、 設 定 し た 条件 に 依存 し ます 。「For Next] ステ ー ト メン ト は 、 指 定 し た 回 数 だ け ル ー プ を 
まわ し ます 。 あらかじめ 繰り 返し た い 回 数 が 決ま っ て いる 場合 は 、 こ の ステ ー ト メン ト を 使っ 
た ほう が 便利 で す 。 











LeSSOn つ つ テキ スト ファ イル を 読み 込 





文 草 で 説明 する と 、 か な り 長 い 説 明 に な っ て し まい ます が 、 処 理 は さほど 上 難しく あ 
り ま せん 。 フ ァイル 操作 の 「3 つの 手続 き ] に 沿っ て 処理 を 組み 立て て いけ ば 、 混乱 
する こと な く 作 成 で を きる で し ょ う 。 そ し て 、 フ ァイル を 開い た ら 、 必 ず Close ステ ー 
トメ ント で 閉じ て お く こ と を 忘れ な いで くだ さい 。 フ ァイル を 閉じ な いと ファ イル を 
破壊 する 原因 に な っ て し まい ます 。 ま た 、 今 回 の プロ グラ ム は 、 あ くま で も テキ スト 
ファ イル が 操作 対象 で す 。 プ ログ ラム ファ イル な どの バイ ナリ ファ イル は 開か な いで 
くだ さい 。 こ れ も 、 フ ァイル を 破壊 する 原因 に な り ま す 。 


る c》 練習 問題 


を 用 いま し た 。 し か し 、 フ ァイル か ら 文 章 を 取り 出す ステ ー ト メン ト は 、 
他 に も あり ます 。 

Input# ステ ー ト メン ト は 、 同 じ よ うに テキ スト ファ イル か ら 文 字 を 読 
み 込 む ス テー トメ ント で す が 、 カ ンマ や 空白 (スペ ー ス ) は 無視 し て 変 
数 に 格納 し ます 。「Lesson22.vbp」 を Input# ステ ー ト メン ト を 用 いて 
処理 する よう に 改修 し 、Line InDut# ス テー トメ ント と の 違い を 確認 し て 
くだ さい 。 ま た 、Input# ス テー トメ ント の 使い 方 を 、Visual Basic の 
ヘル プ フ ァ イ ル を 使っ て 調べ て くだ さい 。 


〇 1 今回 、 フ ァイル か ら 文 章 を 取り 出す の に 、Line Input# ス テー トメ ント 


HI き 
1 の グラ 2 は 央 じじ フォ ル ダ 内 に ある 「resdms ts」 と し う テ キス ト フ ァイル を 読み 込ん 1 
拓 【 コ ー ド の 敵 説 】 


解答 は 巻末 に 一 





才 馬 ワン ポイ ント アド バイ ス 


ファ イル の 内 容 を 表示 する の に 、 テ キス ト ボ ックス コン トロ ー ル を 使用 し まし た 。 文 
革 の ボリ ュー ム が 大 きい ファ イル の 場合 は 、 ラ ベル コン トロ ー ル より も テキ スト ボッ ク 
スコ ント ロー ル の ほう が 、 複 数 行 の 表示 が で きる こと と 、 ス クロ ー ル バー が 付加 され る 
の で 表示 操作 が 格段 に 優れ て いる た めで す 。 た だ し 、 こ れ ら の 機能 を 使う 場合 は 、 必 ず 
[MultiLine] と [ScrollBars] プロ パテ ィ を 設定 し て くだ さい 。 





第 5 日 1 時 限 上 月 ファ イル を 操作 す こ 


リス ト 項 目 を ファ イル に 書き 出す 


テキ スト ファ イル の 、 シー ケン シャ ル 書 き 出 し を マス ター し ます 。 また 、 
コン ボボ ックス の リス ト 項 目 の 設 定 を 行う テク ニッ ク を 覚え ます 。 





今回 作成 する プロ グラ ム 








0 。 追加 する と … 


LiSt.dat ファ イル に 
名 前 が 保存 ご れ … 





ae」 の ァ の の ジー 


3 を Lesson23.vhp 
9 VB6CD 
ョ ペコ Lesson23 


次 回 も リス ト に 名 前 
が 表示 され る 





[Lesson ら 1 .vbp」 で 作成 し た コン ボボ ックス の プロ グラ ム は 、 
リス ト ボ ックス 部 分 の 項目 名 を 追加 し て も 保存 で きま せん で し た 。 
そこ で 、 専 用 の デー タフ ァイル を 作成 し 、 プ ログ ラム 終了 時 に この 
デー タフ ァイル に リス ト 項 目 名 を 書き 出す プロ グラ ム を 作成 し ます 。 

また 、 フ ァイル の 読み 込み 処理 の 復習 を か ね て 、 プ ログ ラム 起動 
時 に リス ト 頂 目 を 初期 化す る 機能 を 組み 込み ます 。 
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LeSSOn ら 3 リス ト 項 目 を ファ イル に 書き 出す 









ロー ル と プロ パティ の 設定 


LeSSOn ど ] .vDp 
の 保存 場所 


この ファ イル は 、 付録 CD- 
ROM の 「Lesson21」 フォ 
ル ダ の 中 に 収録 され て い 
ます 。 





み フォ ー ム を 下方 向 に 広げ る 


号 、 ガ ー ル フレ ンド 名 簿 ーー Height : 4100 程度 











ご 一 ーーーー 


ツー ル ボ ックス の [CommandButton] 引 還 を ンク 
リッ ク し 、 フ ォ ー ム 上 に コマ ンド ポ ボタン を 配置 する 









に と ダン も) ツク 


5 日 ら 時 限 上 日 ファ イル を 操作 する 


ス 21』 


ペダ イ の 消去 


コン ボボ ックス の [|Listl 
プロ パテ ィ に ある リス ト 
項目 は 消去 し て お いて く 
だ さい 。 
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』ExtHtn ommarndButton 





プロ バル パルティ ウィ アド 邊 で IOaption] プロ ルル チ ィ の 
値 を | 終了 ] に 変更 する 





| PID 清和 れ 4 に 1n 








王 1 本 | 項目 引 | 
(コジ ェ エ 名 ) 


DD ら ョ 「 ョ コロ ご ら 
BackColor 








| | &H8UHUHIF& 


ここ て を デン ルン リック 
F 引 |== 
終了 、 | 終了] と 入力 


じ ョ ===" ョ li ョ tion Trug 
[1 キュ F =|=。 


[( オ ブ ジ ェクト 名 )] プロ パテ ィ の 値 を 「ExitBtn」 
に 変更 する 














m 較 | ここ を ダブ ルク リッ ク 


ExitHtn om 中 andButton 


全体 | 項目 別 | 





か を 1 前 上 1 ロロ アン | ExitBtn | ど 力 
DD ら = ョ 『 ョ コロ ご ら 1 ー は 

BackColar | | &H8HUHIHnF& 

じ ョ ロ nce| F 引 == 

Caption 終了 

じ ョ ロ = ほ = ョ 中 ョ tion 「rue 

=f ュ ロロ F ュ |= ょ = 


完成 し た レイ アウ ト 


開 al PP」 PP は は 





條 女 の 名 前 入力 し て 上 上 さ し (。 





志 択 追加 


前 隊 | 








LeSSOn ら 3 リス ト 項 目 を ファ イル に 書き 出 








邊 Form1: (General)- -FileSave 


EEE [= uu 細 ] _T ロ Ix 


還 に ーー"5※v5v5v5※ {加計 rt ※ ボ ※…%5 こ ここ ここ や さや ぱ 豆 


| "と ミ マ ya も @ Su も b F ュ TeSa ゞ Ye ( ) | 
D1m WriteData AS St エ +nqd | 
D1m 1 AS エロ n ロ 上 Ge 





ュ = 0 
OpGn ADD .Pa 上 hh & 『 将 世 エ ユ 8 七 .da 上 " 正 O 〇 て 〇 Ou モ pu As 井 1 
Do Whi1e ュ < Combo1 . 5 上 COun ヒ 
Wr ュ teData = Combo1 . 工 エモ (1) 
3 gm ミミ + 1 
P エ ュ n 揚 1 , W ェ 1 ュ teGDa モ a 
LOOp 
C1ose 提 1 
End Sub 











時 Ferm1: (9smwnl- -FileRead 


| 王 Projscti - Form1 ロー ト 





| |(GeneraD ・| |FileRead ( <| ] 


_ Private Sub FileRead ( ) 
Dim エ TEtemName AS 8 ヒエ ュ nqd 


Open ADDp .Pah & 『" 壮 世 エ 5 上 。.da 七 " 政 O エ エロ pu モ As 提 1 
Do Whi1e No EOF (1) 
ユエ m ら G nu 揚 1, エ t 上 emName 
Combo1 . AdQ エ tem エ 上 emName 
LO 〇 Op 
C1ose 井 1 
mna Su も 








ーー SuD 正 xx ユ モ Bn C11CKk( ) | 
| Ca11 Fi1eSave | 
| End 
End Sub 





第 5 日 ら 時 限 目 ファ イル を 操作 す っ 





引 FO0rm1:FOrm-Load 






l 開 Projsct1 - Formi1 円 


Private Sub Form TLoad ( ) 
| Ca11 Fi1eRead 
、 End Sub 


load 


Form1:Form-Un 







xi1 隔 特 思 の 


[Form lonissa 0 5 <| | 











 P ェ ia@ Sub Form Un1oad (Cance1 As Tnteger ) 
| Ca11 正 i1eSave 
End Sub 
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ファ イル 操作 の ステ ー ト メン ト ・ 関 数 一 覧 


ファ イル を 操作 する に は 、 い くつ か の ステ ー ト メン ト と 関数 を 使用 し ます 。 こ こ で は 、 代 表 
的 な も の を 紹介 し ます 。 






く フ ァイル 操作 の ステ ー ト メン ト > 
ステ ー ト メン ト 説明 


シー ケン シャ ル 出 力 モ ー ド (Output また は Append) で 開い た ファ イル に 
デー タ を 書き 込み ます 。 


Write 井 シー ケン シャ ル 出 力 モ ー ド (Output また は Append) で 開い た ファ イル に 
デー タタ を 書き 込み ます 。 


く フ ァイル 操 作 の 関数 > 
店 説明 


使用 可能 な ファ イル 番号 を 返す ファ イル 入出 力 関数 で す 。 





ファ イル の サイ ズ を バイ ト 単 位 で 返し ます 。 


ファ イル の 作成 日 時 また は 最後 に 修正 し た 日 時 を 返し ます 。 


Input シー ケン シャ ル 入 力 モ ー ド (Input) また は バイ ナリ モー ド (Binary) で 開い た 
ファ イル か ら 指 定 し た 文字 数 の 文字 列 を 読み 込み 返し ます 。 


LOF Open ステ ー ト メン ト を 使用 し て 開い た ファ イル の 長 さ を バイ ト 単 位 で 返し ま 
す 。 

















LeSSOn ら つづ リス ト 項 目 を ファ イル に 書き 出 








本 


今度 は 、 テ キス ト フ ァイル の シー ケン シャ ル 書 き 出 し 処理 を 行い ます 。 フ ァイル 
の 書き 出し も 、|「3 つ の 手続 き ] (P.203 参照 ) で 処理 を 組み 立て る こと に は 変わ りあ 
り ま せん 。 フ ァイル の 読み 込み 部 分 が 書き 出し に 入れ 替わる だ け で す 。 

プロ グラ ム は 、 終 了 時 に コン ボボ ックス の リス ト 項 目 を 、[List.dat| と いう 専用 
の デー タフ ァイル を 作成 し て 、 そ こ に 書き 出し ます 。 こ の 処理 は 、「FileSave」 と い 
う プ ロ シ ー ジ ャ を 作成 し て 行い ます 。 


プク プロ シー ジャ FileSave は 、Do While ルー プ を 使っ て 、 リ スト 項目 を 順番 に ファ イ 
ル に 書き 込ん で いき ます 。 
まず 、 書 き 込 む 項 目 名 を 格納 する 変数 と 、 ル ー プ の 回 数 を 数 える カウ ンタ 用 の 変 
数 を 定 言 し ます 。 カ ウン タ 用 変数 |i は 、 値 を 0 に 初期 化し て お きま す 。 


P エ ュ aEe Sub Fi1eSave ( ) 
D1m W ェ ュ EeDaa AS 8 ヒエ ュ nd 
D1m 1 AS Tntegder 
ュ ょ = 0 
人 テー タ を 書き 込む ファ イル 「Listdat] は 、 プ ロジ ェクト ファ イル と 同じ フォ ル ダ 
内 に 置き ます 。 ま た 、Open ス テー トメ ント は 書き 込み (出力 ) モー ド (Output) 


で 実行 し ます 。Open ス テー トメ ント を 書き 込み モー ド で 実行 し た と き は 、 存 在 し 
な い フ ァイル 名 を 指定 し た 場合 で も 、 自 動 的 に その ファ イル が 作成 され ます 。 


Open App .Pah & " 笠 エ 5 上 .da 上 " 下 O エ Ou モ pu モ As 井 1 
Open ス テー トメ ント の 書式 は P.205 を 参照 し て くだ さき さい 。 
2 作 。。) ファ イル に アク セス で きた ら 、 デ ー タ を 書き 込ん で いき ます 。 
リス ト 項 目 の 総数 を コン ボボ ックス の [ListCount| プロ パテ ィ を 使っ て 調べ 、 そ 
の 数 だ け Do While ルー プ を 回 し ます 。 


Do While < Combo1 . エモ 5 上 COun 


OO 


そし て コン ボボ ックス の [List] プロ パテ ィ を 使っ て 、 リ スト 項目 を 1 つ ず つ 参 照 
し て きま す 。 た と えば 。 


第 5 日 ら 時 限 目 ファ イル を 操作 す 








WriteData = Combo1 . エ sg (0 ) 


と する と 、 リ スト 項目 の 先頭 (|0] 番目 ) の 項目 名 を 取得 し て 、 変 数 WriteData に 
格納 で きま す 。 


この プロ パテ ィ を 使っ て 、 リ スト を |0| か ら ListCount 分 (リス ト 項 目 の 総 数 ) 
まで 1 つ ず つ 参 照 し て いけ ば いい わけ で す 。 リ スト 項目 を 1 つ 把 握 し た ら 、 カ ウン タ 
用 変数 il| を 1 つ 増 加 さ せ て 、 次 の ルー プ で 次 の リス ト 項 目 が 参照 で きる よう に し 
まず 。 


WriteData = Combo1 . モ 8 (1) 
1 ョ ma も キー も 1 


ファ イル に デー タ を 書き 込む に は 、Print# ス テー トメ ント を 使い ます 。 


P エ ュ n 井 1, WW エエ teDa モ a 


【Print# ステ ー ト メン ト の 書式 】 
P エ ュ p モ 井 天 1eNo, da 上 a 


Fi1eNo 書き 込む ファ イル 番号 を 指定 し ます 。 通常 は 、open ステ ー ト メン ト で 
使っ た ファ イル 番号 を 使い ます 。 
da ヒ a 書き 込む デー タ を 指定 し ます 。 


これ で 、|Listdat| ファ イル に リス ト の 項目 名 が 書き 込ま れ ま す 。 


ルー プ の 条件 で ある カウ ンタ 用 変数 の 値 が リス ト 項 目 の 総 数 未満 に 達する と < 
Combo1.ListCount)、 ル ー プ は 停止 し ます 。 カ ウン タ 変 数 は |0] か ら 始 まっ て いま 
すか ら 、 リ スト の 総 項目 数 |-1] の 値 で ルー プ が 停止 し ます 。 

ルー プ に よる 、 デ ー タ の ファ イル へ の 書き 込み が 終わ れ ば 、Close ステ ー ト メン 
ト で ファ イル を 閉じ ます 。 

書き 込み の 場合 も 、 必 ず こ の 処理 を 行っ て くだ さい 。 


LO 〇 Op 
C1ose 提 1 


ファ イル の 書き 込み 処理 が 完成 し た ら 、 こ の FileSave プロ シー ジャ を 呼ぶ Call ス 
テー トメ ント を 、 フ ォ ー ム の 終了 プロ シー ジャ に 記述 し ます 。 フ ォ ー ム が 終了 する 
と き は 、Unload イベ ント プロ シー ジャ が 発生 し ます の で 、 こ こ で FileSave プロ シー 
ジャ を 呼び 出し ます 。 
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P エ ュ で a モ 上 Sub Form Un1Load(CanCe1 AS エ nEeqder ) 
Ca11 iT1eSa ゞ e 
End Sub 


また 、 配 置 し た [終了] ボタ ン の Cliick イ ベン ト プ ロ シー ジャ に も 、End ス テー ト 
メン ト を 実行 する 前 に FileSave プロ シー ジャ を 呼び 出し て お きま す 。 

これ で 、 プ ログ ラム 終了 時 は 、 必 ず 最 後 の リ スト 項目 が デー タフ ァイル に 保存 さき 
れ ま す 。 


P エ ュ ゞ で a モ 上 SuD 巨 ※ ミ 上 上 m C11CK( ) 
Ca11 ミエ eSa で @ 
End 

正 nd Su わ 


人 ⑳ デー タフ ァイル が 作成 され た ら 、 次 回 プロ グラ ム 起 動 時 に 、 こ の ファ イル を 読み 
込ん で 、 コ ン ボ ボッ クス の リス ト 項 目 を 設定 する よう に し まし ょ う 。 これ も 、 
FileRead プロ シー ジャ を 作成 し て 、 こ こ に その 処理 を 記述 し ます 。 

ファ イル 読み 込み の 処理 は 、Lesson22 の プロ グラ ム と 同様 に 、Line Input# ス テ 
ー ト メン ト を 使っ て 、1 行 ずつ 読み 込ん で いき ます 。 そ し て 、 読 み 込ん だ デー タ を 、 
AddItem メ ソ ッ ド を 使っ て コン ボボ ックス に 設定 し て いき ます 。 

この 処理 は 、Do While ルー プ と EOF 関数 を 用 いて 、 フ ァイル の 最後 まで 繰り 返 
され ます 。 こ れ で 、 フ ァイル に 保存 し た すべ て の リス ト 項 目 が コン ボボ ックス に 設 
定 さ れ ま す 。 


P ェ ュ ゞ で a も e Sub Fi1eRead ( ) 
Dim T エ temName AS S エ ュ nd 


Open App . Pah & " 笠 世 エ S 上 .da 七 " 正 O エ エ npu セ も As 韻 1 
Do Whi1e Not EEOF(1) 
エモ mG Tnpu 七 井 1, エ て temName 
Combo 1 . AdQQ エ tem エ 上 emName 
LO 〇 Op 
C1ose 提 1 
正 nd Sub 





ツ 


ファ イル の 読み 込み プロ シー ジャ [FileRead」 は 、 プ ログ ラム 起動 時 に 実行 きせ 
ます か ら 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 、Call ス テー トメ ント を 使っ て 
呼び 出し ます 。 

これ で 、 前 回 終了 時 に 設定 され て いた リス トト 項目 が すべ て コン ボボ ックス に 設定 
る 寺 ま す 。 





第 ら 日 時 限 目 ファ イル を 操作 す に ワ 


P エ ュ で at Sub Form Lioad ( ) 
Ca11 Fi1eRead 
End Sub 





昌信 上 で 、 完成 で す 。 プ ログ ラム を 動作 させ て 、 リ スト 項目 の 追加 や 削除 を 実行 し 、 
[終了 ] ボタ ン で プロ グラ ム を 終了 させ ます 。 Windows の メモ 帳 を 起動 し て 、 
| Listdat」 を 調べ て くだ さい 。 き ちん と リス ト 項 目 が 記述 され て いま す 。 

再度 、 プ ログ ラム を 起動 する と 、[Listdat」 の 中 身 が コン ボボ ックス の リス ト に 
設定 され ます 。 











設定 し た リス ト 項 目 を 保存 


保存 され た List.dat の 中 身 





さち ん と リス ト に 設定 され て いる 
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テキ スト デー タ の ファ イル へ の 書き 出し は 、 デ ー タ に よっ て は 改行 コー ド を 付加 し 
た ほう が いい も の も あり ます 。 

また 、Write# ス テー トメ ント を 使う と 、 デ ー タ を " (引用 待 ) で 囲ん で ファ イル に 
保存 する こと が で きま すか ら 、Excel な ど で デ ー タ を 再 利用 する 場合 な ど は 、 こ の ス 
テー トメ ント を 使う の も ー つ の 手段 で す 。 

特定 の 処理 を 1 つり プロ シー ジャ に まとめ て 、Call ステ ー ト メン ト で 呼び 出す 方 法 
は 、 複 数 の プロ シー ジャ か ら 参 照 す る 場合 な ど は 、 同 じ 記 述 を いく つも 作ら な く て 済 
お ので 便利 で す 。 ま た 、 そ の プロ シー ジャ だ け を コピ ー し て 他 の プロ グラ ム で も 再 利 
用 で きま すか ら 、 こ の よう な プロ シー ジャ の 作り 方 を する 将 慣 を つけ て お く と いい で 
し よう 。 


〇 1 リス ト 項 目 の フ ァイル へ の 書き 出し の 際 に 、 メ ッ セ ー ジ ボッ クス を 使 


っ て 保存 する か どう か を 選べ る よう に 、「Lesson23.vbp」 を 修正 し て く 
だ さい 。 


ピッ トド ト ] 
MsgBox 関数 に ボタ ン を 設定 する 方 法 は すでに 説明 し まし た ね 


(P.1982 参照 )。 こ れ と If ステー トメ ント を 組み 合わ せ て 、[ は い ] ボタ 
ン が 押さ れ た と きだ け 、 フ ァイル に リス ト 項 目 を 書き 込む お よ つ に し ます 。 


プロ グラ ム 実 行 画面 


解答 は 巻末 に 一 





第 5 日 時限 目 ファ イル を 操作 す 


イメ ー ジ ビュ ー ワ ー の 作成 


ドラ イブ 、 デ ィ レ クト リ 、 フ ァイル の 各 リ ス ト ボ ックス の 使い 方 を マス 
ター し 、 フ ァイル 名 を 取得 し て 画像 を 表示 する 方 法 を 覚え ます 。 














今回 作成 する プロ グラ ム 
ee 5 」 ドラ イブ と フォ ル ダ 
aag | を 指定 し … 
画像 ファ イル を 選択 
続 了 
第 5 日 ーー テー 
3 時 限 目 


ドラ イブ リス ト ボ ックス 
選択 し た 画像 が 
表示 され る 

Aa: Lesson24.vhp 

69 VB6CD 

百名 Lesson24 


ディ レク ウト リリ スト 
ポ ボッ クス 


ファ イル リス ト ホ ボッ クス 





ドラ イブ 、 デ ィ レ クト リ 、 お よび ファ イル リス ト ボ ックス を 組み 
合わ せ て 、 任 意 の ドラ イブ の イメ ー ジ ファ イル に アク セス し 、 フ ァ 
イル 名 を 取り 出し ます 。 取 り 出 し た ファ イル 名 は 、 イ メー ジコ ント 
ロー ル に 渡し 、 そ の イメ ー ジ を 表示 し ます 。 ま た 、 フ ァイル リス ト 
ボッ クス で は 、OLE を 使っ た ドラ ッ グ S&S ドロ ッ プ の 設定 を 行い 、 フ 
ァイル リス ト ボ ックス の ファ イル を デス クト ッ プ や フォ ル ダ 、 ア プ 
リケーション に ドラッグ SS ドロ ッ プ で きる よう に し ます 。 
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LeSSOn24 イメ ー ジ ビュ ー ワ ー の 作成 






円 コン トロ ー ル と プロ パテ ィ の 設定 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


ンタ フォ ー ム の サイ ズ 
委 の サイ ズ を 広げ る 2 


フォ ー ム の 右 下 隅 に ある 

=-T ロ ILx サイ ズ 変 更 ハ ンド ル を 外 

1] 側 に 向かっ て ドラ ッ グ し 
ます 。 








HeightS : 5000 
Width : 7000 


口 吾 





ツー ル ボ ックス の [DriveListBox] ! を クリ ッ ク 
し 、 フ ォ ー ム 上 に ドラ イブ リス ト ボ ックス を 配置 する 





: 
第 5 日 3 時 限 目 ファ イル を 操作 する 





。 ノ ファ イル リス ト 
* マ ホッ クス を 選択 
この 操作 を 行う 前 に 、 作 
成 し た ファ イル リス ト ボ 
ックス コン トロ ー ル が 選 
羽 さ れ て いる こと を 確認 
に た くださ りゃ 。 


メス メス 


ツー ル ボ ックス の [DirListBox] .- コ を クリ ッ ク し 、 
フォ ー ム 上 に ディ レク トリ リス ト ボ ックス を 配置 する 





| に と こ 和 を フリック 
| 和 li [SDK & DEyGn] 」 





と NH\ 
で < w Frogram F il== 





|「=mplste 
| 「=ql 
WW に ョ rd= 


その 圭 ま ご こま で 
ドラ ッ グ 





ツー ル ボ ックス の [FileListBox] を クリ ッ ク し 、 
フォ ー ム 上 に ファ イル リス ト ボ ックス を 配置 する 



















We For il 









放 放 [SDK & DEyGn] 


s | キ 
%s Program Files 


Il「=mplats 
| 「sal 
1 WW ょ ards 


ここ を ソン リッ シク 


ファ イル リス ト ボ ックス の [OLEDragMode] プロ 
バテ ィ の 値 を 「 1 - 自動 ] に 変更 する 


[File1 FilsListBox ーー コ 
全体 | 項目 『 セル を ダブ ルク リッ ク 
値 が 切り 替わる 





う 
















MousePointer ロ - 學 定 ] 填 
MultiSalsct 0 - な し 
Mormal Trug 
OLEDrag Mods 1 - 自動 

| FTran ad ら ロー 詞 | . 
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[Pattern] プロ バテ ィ の 値 を |*.DmDp:*.jpg:*.gif」 に 
変更 する 











UE ゴ に 3 
IFile1 FilsListBox | 
王 1 本 | 項目 由 | 
















OLEDragMods 1- 自動 

Pattern * キ mp: 玉 DE: キ ロリ 
RsadOnly Trug 

Sy=te mm F ョ |== 
Tablndax の 

TabStop True 








ツー ル ホ ボッ クス の [Image」 遇 ポタ ン を クリ ッ ク 
し 、 フ ォ ー ム 上 に イメ ー ジ コン トロ ー ル を 配置 する 


1 に 2 ん リッ プク 
me ーas し だ 


1「=mplste 
=ql 
WW<ards 












プロ バテ ィ ウ ィ ン ド ウ で [BorderStyle] プロ バテ ィ 
の 値 を | 1 - 実 線 」 に 設定 する 


DD 証 に (3 E3 















ms 導 | ここ を クリ ッ ク 
用 | ここ を クリ ッ ク 


Image1 ImaE= 
全体 | 項目 別 | 


(オジ ェ ッ ト - 守 Imags 1 
ドー 清 





Te いつ 


D ョ t ョ F je 

Dat ョ Format う ここ な を ンジ ン リ ッ ク 
Dat ョ = mbsr 

Da ョ t ョ ご OurCe 

Le W 〆 士 =1 > ョ 





ター ン 


[Pattern| プロ パテ ィ を 設 
定 す る と 、 指 定 さ れ た 拡 
張子 (bmp」 |jpg」 な ど ) 
の 種類 の ファ イル の み を 
ファ イル リス ト ボ ックス 
内 に 表示 させ る よう に す 
る こと が で きま す 。 ワイ 
ルド カー ド |**| を 指定 す 
る こと も で きま す 。 

Windows ア プリ ケー ショ 
ン で の [ファ イル を 開く <]| 
ダイ アロ グ ポ ボッ クス の 中 
に ある [ファ イル の 種類 ] 
を 使う 方 法 と 仏 て いま す 。 


ぐ タ イィ メージ を 選択 


この 操作 を 行う 前 に 、 作 
成 し た イメ ー ジ コン トロ 
ー ル が 選択 され て いる こ 
と を 確認 し て くだ さい 。 


|BorderStyle] プロ パテ 
ィ イ を ダブ ルク リッ ク し て 、 
[0O- な し ] と [1- 実線 ] 
を 切り 替え る こと も で き 
ます 。 


第 ら 日 時限 目 ファ イル を 操作 する 





ツー ル ボ ックス の [CommandButton] La を クリ ッ 
ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 





し ll「smplate 
し l「sal 
| Weards 






ここ を クリ ッ ク 
その まま ここ まで 
ドラ ッ グ 


(5) プロ バテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ 
の 値 を 終了] に 変更 する 


[Command1 CommandButon =。。 j 
| 王 1 本 | 項目 串 | 












こと を ダフ ルク リック 
[終了] を 入力 


| に ョ ===" ョ li ョ tion True 


ーー だ 記 宮 





ョ ョ Form1:Drive1-Change 


| 環 Projsct1 - Form1 (ロード 


| |prive1 ・| |Changs ・| | 





 B ェ エミ vate Sub Dr ュ ive1 Change ( ) 
| D ュ 1 .Pa 上 h = D エ ie1 .D ェ 1 ュ ve 
End Sub 


ーーーーーーーーーーーーーーーーーーーーーーーーーー ツ ーー ーー ーー 


上 Form1:Dir1-Change 
| 1 = 軸 有 ET eo 


| lpir1 ・| |Change ・| | 


Private Sub Dir1 Change( ) 
Fi1e1 .Path = Dr1 .Path 








ーーーーー ーー て ーー ンー ーー ンー ボーー ボ ーーーー 








の 








LeSSOn ら 4 イメ ー ジ ビュ ー ワ ー の 作 


引 FOrm1:File1-Click 


呈 Projsct1 - Form1 (コー ト ) 





IFils1i - 放 





Private Sub Fi1e1 C1iok() 
| Dim Fname AS Sting 


Fname = D ュ て 1.Path & " 半 " & Fi1e1 .Fi1ename 
エ mad@1 .P1 ご 上 u エ て G = LoadP1iC モ u エ @ (Fname ) 





ョ Form1:Command1-Click 


| [Commandi ・| Iciick ( ( <| 


| P ェ ivate Sub Command1 C1ick( ) 
| End 
End Sub 



















ファ イル に アク セス する に は 、 ド ライ ブリ スト ボッ クス 、 デ ィ レ クト リリ スト ポ ボ 
ックス 、 フ ァイル リス ト ボ ックス の 、3 つ の コン トロ ー ル を 連動 きせ る の が ポイ ン 
ae 






ドラ イブ リス ト ボ ックス は 、 コ ンピュータ で 
利用 可能 な ドラ イブ を リス ト 表 示し ます 。 







ディ レク トリ リス ト ボ ックス は 、 指 定 し た ドラ イブ 
の ディ レク トリ (フォ ル ダ ) 名 を 一 覧 表示 し ます 。 







ブフ ァ イル リス ト ボ ックス は 、 指 定 し た ディ レク トリ 
(フォ ル ダ ) に ある ファ イル を 一 覧 表示 し ます 。 






クア) ドラ イブ リ スト ボッ クス (Drive1) は 、 ユ ー ザ ー に よっ て ドラ イブ が 選択 きれ る 
と 、Change イ ベン ト が 発生 し ます 。 そ し て 、 選 択 さ きれ た ドラ イブ 名 は [Drive] プ 
ロ パ ティ に 格納 され ます 。 
この Drive] プロ パテ ィ の 値 を 、 デ ィ レ クト リリ スト ボッ クス (Dir1) の 
[Path] プロ パテ ィ に 代入 する と 、 デ ィ レ クト リリ ス トド ボッ ダグ スズ ス は 、 そ の ドラ イブ 
の ディ レク トリ 一覧 に リス ト を 更新 し ます 。 そ こ で 、 ド ライ ブ プ ボ ックス の Change 
イベ ント プロ シー ジャ に 、 こ の 処理 を 記述 し ます 。 


第 5 日 時限 上 日 ファ イル を 操作 す (の 





P ェ ュ ゞ ate Sub Drive1 Change( ) 
D ュ 1 . Pa 上 h = D エ ュ で e1 .D エ ュ @e 
End Sub 





選択 し た ドラ イブ 
(Drive 1 .Drive) 





| 1CATENA 
に DevStudio 

| | download images 
8 FrontPage Wiebs  」 
EE 












ドラ イブ リス ト ボ ッ ク 
ス か ら ド ライ ブ を 選択 
する と Change イベ 

ント が 発生 し ます 。 


選択 し た ドラ イブ (Drive 1 .Drive) 
の 内 容 が ディ レク トリ リス ト ボ ッ 


クス に 表示 され る よう 設定 し ます 
(Dir 1 .Path)。 





次 に 、 デ ィ レ クト リリ スト ボッ クス は 、 ユ ー ザ ー に よっ て ディ レク トリ (フォ ル 
ダ ) が 選択 さき れる と 、Change イ ベン ト を 発生 し ます 。 選択 され た ディ レク トリ 
(フォ ル ダ ) 名 は 、[Path] プロ パテ ィ に 格納 され ます 。 

この [Path] プロ パテ ィ の 値 (DirlIPath) を 、 フ ァイル リス ト ボ ックス (File1) 
の [Path] プロ パテ ィ (Hile1.Path) に 代入 する と 、 今度 は ファ イル リス ト ボ ッ ク 
ス が この ディ レク トリ (フォ ル ダ ) の ファ イル 一 覧 に 更新 され ます 。 


P エ ュ ゞ ate Sub Dr1 Change( ) 
Fi1e1 .Pa 上 h = D ュ 1 .Pa モ 1 
End Sub 


ファ イル リス ト ボ ックス は 、 ユ ー ザ ー に よっ て ファ イル が 選択 され る と 、 そ の フ 
ァイル 名 を [filename] プロ パテ ィ に 格納 し ます 。 こ の 値 を 取り 出し て 、 イ メー ジ 
コン トロ ー ル の [Picture] プロ パテ ィ に 代入 すれ ば 、 そ の イメ ー ジ ファ イル を 表示 
で きま すず す 。 

ジテ ァイル を ダリ ッ ク タク す る だけ で 、 ゴ メージ コッ アト ロー ル に 庄 が す る よ 
うに 、 フ ァイル リス ト ボ ックス の Cliick イベ ント プロ シー ジャ に 処理 を 記述 し ます 。 


イメ ー ジ コン トロ ー ル に イメ ー ジ ファ イル を 表示 する に は 、[Picture] プロ パテ 
ィ に 「LoadPicture] メソ ッ ド を 使っ て イメ ー ジ ファ イル を 代入 し ます 。 

直接 [Picture] プロ パテ ィ に ファ イル 名 を 代入 し て も 表示 され ませ ん 。 
LoadPicture メ ソ ッ ド を 使っ て 、 イ メー ジフ ァイル を 読み 込ん で 、 メ モリ に 格納 し 
ます 。 そ れ を 、 イ メー ジコ ント ロー ル に 渡せ ば イメ ー ジ が 表示 きれ ます 。 


Tmage1 .Picture = roadPicture( フ アァ アイル 名 ) 








LeSSOn ら 4 イメ ー ジ ビュ ー ワ ー の 作 





きっ LoadPicture メ ソ ッ ド は 、 引 数 に ファ イル 名 を フル パス で 記述 し ます 。 
し か し 、 フ ァイル リス ト ボ ックス の [fiilename] プロ パテ ィ に 格納 され る の は フ 
ァイル 名 の み で 、 ド ライ ブ や ディ レク トリ (フォ ル ダ ) 名 は 格納 され ませ ん 。 そ こ 
で 、 デ ィ イレ クト リリ スト ポッ クス の IPathl プロ パチ テ ォ と 肖 み 合わ せ て で 、 ラ フル バス 
の ファ イル 名 を 作成 し て あげ ます 。 こ の と き 「\」 記号 を 忘れ ず 追 加 し て お きま す 。 
な お 、 フ ァイル リス ト ボ ックス の [Path] プロ パテ ィ に は 、 ド ライ ブ プ 名 も 含ま れ て 
格納 され る の で 「Dir1.Path] と する と ころ を 「Filel1.Path| と し て も か まい ませ ん 。 


P ェ エ ュ ate Sub F ュ 1e1 C1iock ( ) 
Dim Fname AS Singd 


Fname = D ュ て 1.Path & " 和 ま " を 正 i1e1 .Ei1ename 
エ made1 .P エ ご 上 いと エ G = LoadP も C ヒ u エ @G (Fmname ) 
End Sub 


ププ  [ 要 了 ] ボタ ン に は 、 プ ログ ラム の 終了 処理 を 作成 し ます 。 


P ェ ュ yate Sub Command1 C1ick ( ) 
End 
正 nd Sub 


ドラ イブ 、 デ ィ レ クト リ 、 フ ァイル の 各 リ スト ボッ クス は 、[Drive] [Path] プ 
ロ パ ティ が 変更 され る と 、 自 動 的 に Change イベ ント が 発生 し ます 。 コ ー ド で プロ 
パテ ィ の 値 を 変え て も 、 発 生 し ます 。 こ れ に よっ て 、3 つ の リス ト ボ ックス が 連動 
し て いれ ば 、 ド ライ ブ を 変更 する だ け で 自動 的 に ディ レク トリ と ファ イル の 一 覧 が 
更新 され ます 。 





ファ イル リス ト ボ ックス の [Pattern] プロ パテ ィ は 、 リ スト に 表示 する ファ イル 
の 種類 を 指定 する プロ パテ ィ で す 。 こ こ で は 、「BMP」「TPEG」 [GIF」 の 3 種類 の 
ファ イル だ け 表 示す る よう に 、[Pattern] プロ パテ ィ を 設定 し まし た 。 

復 数 の パタ ー ン を 設定 する 場合 は 、「:| で 区 切っ て 記述 し ます 。 





* bmpz *。]pdz * 。 可 エモ E 


ワイ ルド カー ド が 使え ます の で 、 目 的 に 応じ た パタ ー ン を 設定 し て くだ さい 。 


第 5 日 3 時 限 目 ファ イル を 操作 す 
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に コ d\ 
| ご GENKOLU 













LESSON00 TXT 
LESSONn1.TxT 
LESSON0n2.TXT 
LESSON03.TxT 
LESSON04.TxT 
LEsSONn5.TxT 
LESSON06.TXT 
ILESSON07.TxT 






Pattern を 「*.txt」 に 変え て 実行 し た 





ファ イル リス ト ボ ックス の 、[OLEDragModel プロ パテ ィ を 「1 - 自動 | に 設定 
する と 、 選 択 し た ファ イル を デス クト ッ プ や フォ ル ダ に ドラ ッ グ 錠 ド ロッ プ で きる 
よう に な り ま す 。 ま た 、 ア プリ ケー ショ ン が OLE サ ー バ に 対応 し て いれ ば 、 フ ァ イ 
ルリ スト ボッ クス か ら フ ァイル を ドラ ッ グ 多 ド ロッ プ で 渡す こと が で きま す 。 


以上 で 完成 で す 。 プ ログ ラム を 実行 し ます 。 

ドラ イブ リス ト ボ ックス で ドラ イブ を 変更 する と 、 自 動 的 に ディ レク トリ と ファ 
イル リス ト ボ ックス の 表示 が 更新 され ます 。 ま た 、 フ ァイル を クリ ッ ク す る と 、 イ 
メー ジコ ント ロー ル に 表示 され ます 。 フォ ー ム は 、[BorderStyle] プロ パテ ィ を 
| 2 - 可変 ]】 の まま に し て あり ます の で 、 表 示し きれ な い イ メー ジ の 場合 は 、 フ ォ ー 
ム を 広げ て 表示 で きま す 。 

ファ イル リス ト ボ ックス の ドラ ッ グ 鐘 ド ロッ プ 機 能 に より 、 フ ァイル を ドラ ッ 
が 0 ドサ し て 要り と と が で きま すず 。 






Ei 


en 紀 選択 し た ファ イル の イメ ー ジ 
ビデ ーー を 表示 する た め に フォ ー ム を 


広げ る こと が で きる 


ファ イル リス ト ボ ックス 
か ら フ ァイル を ドラ ッ グ 
に も 





9 す SN 8 ーー 
ーーーーーーーーーーーーーーーーーーーー レ ーーーーーーーーーーーーー こ SS 
@- の も 
Pb へ の 1 
2 II 
bx 本 
b ベ の Ei ee 
OCS) 3 ヽ ae \ 
bx 匠 】 7 い 
PR ) ( 天 ョ - 議 て { 
bo Cl 欄 
oo た 引 1 
に ドー ラ 3 いい 
OO _ 了 E ) 提 ドロ v\ ト ・ 式 
OS ーーーーーーー… の LO 
PXK う し 大 ます 
生 : ( R) 2 る 
ババ 
CS 
の 
5 
AO 
AA ト プ wumruwuwuwmuwrumnuwmuwuwuwruwuwuw。. 
OOOOo の の 5 ooooooooo の の 
OO ババ OS の 二 SS 
OO Oo OO の ペ 











LeSSOn ら 24 イメ ー ジ ビュ ー ワ ー の 作 





ファ イル 関係 の リス ト ボ ックス を 使う と 、 マ ウス だ け で ファ イル の 操作 が 実行 で き 
ます 。WindowsS に は 、[ フ ァイル を 開く ] ダイ アロ グ ボ ックス な どの コモ ンダ イア ロ 
グ ボ ポッ クス が あり ます が 、 フ ァイル リス ト を 表示 し た まま 処理 を 行う に は 、 こ れ ら の 
ファ イル 操作 の リス ト ボ ックス を 組み 合わ せ て 使う と 便利 で す 。 

ポイ ント は 、 ド ライ ブ ・ デ ィ レ クト リリ スト ボッ クス で ユー ザー が クリ ッ ク す る と 、 
Click イベ ント で は な く Change イベ ント が 発生 する こと で す 。 

また 、 コ ー ド で ドラ イブ や ディ レク トリ を 変更 し て も 、Change イベ ント が 自動 的 
に 発生 する こと で す 。 こ れ ら の コン トロ ー ル の 、 動 作 の 特徴 を 把握 し て お きま し ょ う 。 





《c》 練習 問題 


O1 





作成 し た 「Lesson24.vbp」 を 修正 し て 、 フ ァイル リス ト ボ ックス の 
Pattern プロ パテ ィ の 設定 を 、 コ ン ボ ボッ クス で 行え る よう に し て くだ 
さい 。 コ ン ボ ボッ クス は 、 以 下 の 3 つの Pattern を 選べ る よう に し ます 。 





*.DmD *JD 豆 *. け 





【 ヒ ント 】 

コン ボボ ックス で 選択 され た 項目 は 、[Text] プロ パテ ィ に 格納 され ま 
す 。 こ れ を 、 フ ァイル リス ト ボ ックス の [Pattern] プロ パテ ィ に 代入 す 
れ ば 、 指 定 し た ファ イル の 拡張 子 だ け を 表示 で きま す 。 


解答 は 巻末 に 一 


第 5 日 3 時 限 上 日 ファ イル を 操作 す ッ 








者 馬 ワン ポイ ント アド バイ ス 


ディ スク か ら フ ァイル を 削除 する に は 、「Killl」 ステ ー ト メン ト を 使用 し ます 。 デ ィ レ 
クト リ (フォ ル ダ ) を 作成 する に は 、「MkDirl ステ ー ト メン ト を 、 デ ィ レ クト リ を 削 
陸 す る に は 、「RmDir] ステ ー ト メン ト を 使用 し ます 。 

カレ ント の ディ レク トリ (現在 作業 中 の ディ レク トリ ) を 変更 する に は 、ChDir ステ 
ー ト メン ト を 使い ます 。 


く Kil ス テー トメ ント の 例 > 
① 1 つの ファ イル を 削除 する 場合 
K ふ 11 "Readme . モ 上 『 


@ 現 在 の フォ ル ダ に ある すべ て の *.TXT ファ イル を 削除 する 場合 
Ki11 "*. TXT" 


く MkDir ステ ー ト メン ト の 例 > 


① ド ライ ブ C に 「MyData] と いう ディ レク トリ を 作成 する 場合 
MikD1r "MYData" 


< く ChDir ステ ー ト メン ト の 例 > 
① 1 つ 上 の 階層 に 移動 する 場合 


ChD ュ ェ 隊 間 。 大 











計 * ロ に (Lesson ら 5 un) ~ Lesson ら 5 (5) ) 


ゾン フトウェア 
ラン チャ ー の 作成 










Windows の プロ グラ ム で は 、 プ ログ ラム に 使用 する 各 種 設定 を ファ イル に 保存 で 
さま す 。 


Windows 3.1 の と き は 、「.inij」 ファ イル (プロ ファ イル ファ イル ) に この 設定 を 
保存 し まし た が 、Windows 95 か ら は 「 レ ジス トリ 」 に 格納 する よう に な り ま し 
2 し 

この レッ スン で は 、 こ れ ま で 紹介 し て きた テク ニッ ク と あわ せ 、 レ ジス トリ を 操作 
する テク ニッ ク を 使い 、 和 複数 の アプ リケーション を 一 度 に 起動 する 、「 ソ フト ウェ 
アラ ンチ ャ ー」 を 作成 し ます 。 


作成 する プロ グラ ム は 比較 的 長く や や 複雑 に な る の で 、 機 能 別 に 6 つの フォ ー ム 
に 分 け て 、 吉 フォ ー ム ご と に 作成 し て いき ます 。 


今日 の レッ スン で 解説 する 項目 

ココ Windows の レジ スト リ の 読み 書き を 行う ステ ー ト メン ト の 使い 方 
ココ WindowsS の レジ スト リ の 仕組 み 

ココ ファ イル 関係 の リス ト ボ ックス の 使い 方 


どら つの フォ ー ム 間 の デー タ の 操作 
ココ 他 の アプ リケーション プロ グラ ム を 実行 する 方 法 
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1 時 限 目 


ゾ プ フ ト ウェ ア 


う Learning Edition 








メイ ン モ ジュ ー ル の 作成 


プロ グラ ム の メイ ン モ ジュ ー ル を 作成 し ます 。 ま た 、Windows の レジ 
スト リ の 読み 書き を 行う ステ ー ト メン ト の 使い 方 を 覚え ます 。 





人 今回 作成 する プロ グラ ム 


アァ リバ テ ア ェ エ スニ 








[Run] ボタ ン を 
クリ ッ ク す る と … 








編集 E) 電 晶 の 種類 y) へ ルフ 2*①D 


RE 


BaGE1 ol 
Mc] 7| ml | /|swl 
MR| 4] sl lxl wl| 
MS| 1] sz] 3| -| 友 | 
JI 01 し = は 





プロ グラ ム が 起動 
する 





復 迷 の ソフ トウ ェ ア を 、 一 度 に 起動 する プロ グラ ム で す 。 起 動 す 
る ソフ ト は 、 専 用 の ダイ アロ グ ボ ックス で 登録 し ます 。 登録 し た ソ 
ノ フト は 、Windows 835/38 の レジ スト リフ ァイル (レジ スト リ デ ー 
タベース) に 登録 し 、 プ ログ ラム 起動 時 に 読み 込ん で 、 実 行 し ます 。 
また 、 司 録 ソ フト は 、 い つ で も 自由 に 変更 で きる よう に し ます 。 

解 品 の 便 青 上 、 登 録 で ざる ソフ ト は 、4 つま で と し ます 。 



















LesSOn ら 65 n。 メイ ン モ ジュ ー ル の 作成 






人 コン トロ ー ル と プロ パテ ィ の 設定 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


ツー ル ボ ックス の [Label] 護 を クウ リック し 、 
フォ ー ム 上 に ラベ ルコ ント ロー ル を 配置 する 


ここ を クリ ッ ク 
で その まま ご こま で 
ドラ ッ グ 





プロパ アイ ソ ツィ ンド ウ で IPaptienhl プロ バテ ィ の 
値 を | 登録 済み アプ リケーション 」 に 変更 する 


ILabel1 Labsal ー | 
全体 | 項目 | | 












ここ を ダブ ルク リッ ク 
値 を 入力 


[BorderStyle] プロ パテ ィ の 値 を 「1 - 実線 」 に 設 


定 す る 


上 &H8nnnnOnF& 」 
1 - 不 須 明 | 
ロー- な し | 
登録 済み アプ リケーション 鞭 ゴ 



















全体 | 項目 別 | 

貞 uto ら に ら Fal=s ce 

BackColcr 目 &H8nnnnnnF& ' アア 用 | ここ を クリ ッ ク 
BackStyle 1 - 不 退 明 | 

eS9』 中 本 5 

に ョ ption 『 
DataFisld pi E】 ここ を クリ ッ ク 

ataFnrma1 





第 6 日 





次 の レッ スン で 
くぎ 三 殿 

この レッ スン は 2 時 限 目 ま 
で 作成 し た 時 点 で 完成 で 
す 。 1 時 限 上 日 まで を 作っ て 、 
プロ グラ ム を 実行 する と 
エラ ー が 出る の で 、 注 意 
に し て くだ さめ 。 


ぐみ ラベ ル を 選択 
この 操作 を 行う 前 に 、 作 
成 し た ラベ ルコ ント ロー 
ル が 選択 きれ て いる こと 
を 確認 し て くだ さい 。 


< 値 の 切り 替え 


[BorderStyle] プロ パテ 
ィ を ダ プ ルク リッ ク し て 、 
[0O- な し |] と [1 - 実線 ] 
を 切り 替え る こと も で き 
ます 。 


っ ろう 


1 時 限 目 ソフ トウ ェ ア ラ ンチ ャ ー の 作成 


リス ト ボ ックス 
ぐ タ な 選択 

この 操作 を 行う 前 に 、 作 
成 し た リス ト ボ ックス コ 
ント ロー ル が 選択 され て 


いる こと を 確認 し て くだ 
さい 。 


ろ ろ 和 全 


BackColor < 還 LPumLaJmlmunlane 
BackSty la 1 - 二天 BH 





| Iisibls Trus | 
LlwhatsTbisHslpIh ーー 軸 較 


[AIignment] プロ パテ ィ の 値 を 「 ら - 中 央 揃え ] に 





衝 










設定 する 
DETT s m 導 | ここ を クリ ッ ク 
Label1 Label _ 






人 | | 


用 | ここ を クリ ッ ク 
工 久 | ここ を クリ ッ ク 


の: 9 デ ー 
liTLu ee 1 
DD ら = ョ コロ ご ら 朋 2 





上 避 to ご に ら 





_ BiordsrStyl= 1 - 実線 


ツー ル ボ ックス の [ListBox] 設 を クリ ッ ク し 、 
フォ ー ム 上 に リス ト ボ ックス コン トロ ー ル を 配置 する 








| rl 円 に 3 


- 提 ここ を クリ ッ ク 
| 8 で っ 





ーー 
ーー 
ーー 
ーー 
ーー 
ーー 
ーー 
ーー 
*ー 
Se ou 
ーー 1 
ーー 
ーー 
ーー 中 
ーー 
ーー 
に 
で 
ーー 
ーー 
ーー 
ーー 
ーー 
wa 
ーー 
ーー 


> 上 その まま ここ まで 
0 ドラ ッ グ 


プロ バテ ィ ウ ィ ン ド ウ で ToolTipText] プロ パテ ィ 
に | クリック し て 選択 」 と 入力 する 





Ln ListBoxx コ 
全体 | 項目 別 | | 








ここ を ダン フル クリ ウタ 
値 を 入力 


True 





フリ ロック し て 居 択 
675 
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[Sorted] 
デ フロ ティ 
2 を 「True」 


/ [Sorted] プロ バテ ィ の 値 を ITrue」 に 設定 する 





ID こ に 設定 する と 、 リ スト ボ 
ーーー ーー ックス の 項目 自生 的 に 

IList1 ListBoxx 寺 アル ファ ベッ ト 順 に 並べ 
他人 本 | 項目 | 株 えら れ ま す 。 





ロー 言 し 
n- 手動 
0 - な し 


F ョ |== 


セル を ダブ ルク リッ ク 


ツー ル ボ ックス の [CommandButton] コ を クリ 
ッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 


| di 旨 に 4 | 


| 登録 済み アゴ リケーション 








ここ を クリ ッ ク 


雪 引 
だ の まま ここ まで 
ドラ ッ グ 





プロ パテ ィ ウ ィ ン ド ウ で [Caption] プロ バテ ィ の 値 し と 


ュ 空 
を 「 追 加 ] に 変更 する ン 記 択 
この 操作 を 行う 前 に 、 作 








』 日 呈 イ イー じ omma て 

2 ント ロー ル が 選択 され て 

|ICommand1 CommardBiutton et いる こと を 確認 し て くだ 
全休 | 項目 中 | さい 。 





(オジ エット) Commard1 デー 
「 ep 
必 ロ D= ョ 「 ョ ロ ご ら 1 - 3D ] ここ を ダブ ルク リ ッ ク 


BackColor | | &H8HUHUH0F& 


中 


] au===V ョ lidation True 


= ま ュ は … ヒュ | に 


っ ろう 
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こと Me 


この 操作 を 行う 前 に 、 作 


成 し た コマ ンド ボタ ンコ 
ント ロー ル が 選択 され て 


いる こと を 確認 し て くだ 
さい 。 
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』《) [( オ ブ ジ ェクト 名 )] プロ パテ ィ の 値 を 
IAppAdd」 に 変更 する 


AppAdd CormandBo デ _ー _ 再 m 導 | ここ を ダブ ルク リッ ク 
全体 | 項目 串 | 
用 | 値 を 入力 


較 フシ ェ 名 ) 
ーー 

LToolTipText] プロ パテ ィ に 「 登 録 ア プリ ケー 
上 ショ ン の 追加 ] と 入力 する 













pp 呈 dd 
1 うす 








AppAdd CommandButton 








ここ な ダブ ルク タリ ッ ク 
値 を 入力 


1 ス ツー ル ボ ックス の [CommandButton] Ll を ク 
リッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 


True 





登録 アプ リケーション の 人 加 
2n4n 





| inn 


に に ン リリ ッッ ツ 
0 まま に こま で 
ドラ ッ ク 





プロ バテ ィ ウ ィ ン ド ウ で Caption] プロ バテ デ ティ 
の 値 を | 削除 ] に 変更 する 





1 


| Cosme id cw pm 1 〒 “ 
全体 | 項目 


BackColor 上 | &H8UOOUU00F& P 
| Cancel Falss 






m 略 | ここ を ダブ ルク リッ ク 





、 証 EE 月 | 除 アン 値 を 入力 
| Causesalidation True 
 』Default Fa に = 


LeSSOn ら 5 nn) 


メイ ン モ ジュ ー ル の 作成 





ジー ト 名 )」 プロ バテ ィ の 値 を 「AppDel」 





』 


















ーーーー m 較 | ここ を ダブ ルク リッ ク 
| AppDel Comi andButton 

全体 | 項目 旭 | 

「 を 7 だ 7」 と つ 品 ppDal アン 値 を 人 力 

| PP= ョ ranCe 1 - 3D 

BackColor 目 &H8nnnnnnF& 

Cancel Fa 

へ ・ - 叶 IE や 


ます [ToolTipText] プロ パティ に 「 登 録 ア プリ ケー 
ショ ン の 削除 ] と 入力 する 


「 光 a 5Del Co m marnid Mo 本 
























全体 | 項目 | 叶 | ここ を ダブ ルク リッ ク 
| TabStop True 

] Tag 

に mil に -IEEt 本 只 登録 アプ リケーション の 削除 アン 値 を 入力 

Top g0 凶 

LUsslMaskColor F al== 

yisibls True 当 


pn = ー ーーーーーー ーー 


1 ⑬⑮ ツー ル ボ ックス の [CommandButton] | を ク 
リッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 





ーー 
の 
so 二 
ーー 


2 





プロ バテ ィ ウ ィ ン ド ウ で 【Caption] プロ パテ ィ 
の 値 を 「Run」 に 変更 する 


7 





IlCommand1 CommarndBiutton 引 
全体 | 項目 l 閣 | ここ を ダブ ルク リッ ク 










四 &H8nnnnnnF& 内 


まま] 人 


Run 


BackColcr 
] ancel 


Caption 





[ee 





CausesValidation True 
Defaut Fa ほ e 
DisablsdPicturs (な し ) 


第 6 日 1 時 限 目 ソフ トウ ェ ア 


くぎ ツー ル チ テッ プ 


ツー ル チ ッ プ に つい て は 
Lesson19 を 参照 し て くだ 
さい 。 


< っ < コマ ンド ボタ ン を 


この 操作 を 行う 前 に 、 作 
成 し た コマ ンド ポタ ンコ 
ント ロー ル が 選択 され て 
いる こと を 確認 し て くだ 
さい 。 


2 ぅ アプ 


ャ ー の 作成 


23 う 8 


' ボ IP い ビア wao Pon 


isible True 
| PetsrhtsreplP 日 


48 ご 






[( オ ブ ジ ェクト 名 )] プロ バテ ィ の 値 を 「Run」 


に 変更 する 
] ー 一 箇 四 | ここ を ダブ ルク リッ ク 
PE も] と コ ーー | こ 
必 D ほ ar ョ ne 1 - 3D グ 値 を 入力 






も や 5) Run 

BackColcr | | &H8UHnHnF& 
ance| Fa ほ = 

aption Run 


ausesValidation True 


Default Falss 表 | 


上 [ToolTipText] プロ バテ ィ に | アプリケー ショ 
ン の 実行 」 と 入力 する 





IRun CommandBiutton ' マ 


、 全体 | 項目 8 














を ダブ ルク リッ ク 












| TabStop True 

 』「ag 

SH アゴ リケーション の 実行 値 を 入力 
| lop J115 


lsslMaskColor Fa ほ = 





オプ ジェ クト 名 


Visual Basic で は 、 フ ォ ー ム と コン トロ ー ル の オブジェ クト 名 を 自由 に 
変更 で きま す 。 機能 に よっ て 、 プ ログ ラマ ー 自 身 が わか りや すい 名 前 に 変 
更 す れ ば 、 プ ログ ラム コー ド が 読み や すく な る で し ょ う 。 

だ た だ し 、 オ プ ジ ェ クト 名 を 変更 する と 。 そ の オプ ジェ クト の イベ ント ア 


ロ シ ー ジ ャ の 名 前 も 変わ っ て し まい ます 。 も し 、 す で に イベ ント プロ シー 
ジャ が 存在 し て いる 、 フ ォ ー ム や コン トロ ー ル の オブジェ クト 名 を 変更 し 
て し まっ た ら 、 そ の オプ ジェ クト に 対応 する イベ ント プロ シー ジャ 名 も 同 
様 に 変更 し て くだ さい 。 そ うし な いと 、 イ ベン ト プ ロ シー ジャ が 正しく 呼 
び 出 され な く な り ま す 。 





LesSOn ら 5 un。 メイ ン モ ジュ ー ル の 作成 
6《) ツー ル ボ ックス の [CommandButton] 一 を ク 
リッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 


| | iri = ロメ | 
「 人 II み ア ゴリ ケー ショ ン 





と と 人 プ リ ッ ク 
Run ems ・ その まま ここ まで 
て ドラ ッ グ 


プ 人 プロ バテ ィ ウ ィ ン ド ウ で 【Caption] プロ パティ 証 績 還 縛 結 
の 値 を | 終了 | に 変更 する 
この 操作 を 行う 前 に 、 作 
成 し た コマ ンド ボタ ンコ 
| ント ロー ル が 選択 され て 
lcommand1 CommardButton ed いる こと を 確認 し て くだ 
全体 | 項目 別 | 


さい 。 
ーー ーーーーーーーーーーーーーーーーーーーーーーーーーーーー CC を ダブ ルク リッ ク 
心 口 D= ョ F ョ ロ ご ら 1 デ 選 
BackColor | &H8nn0nF& 
値 を 入力 
























Cancel False 


終了 
ause=sValidation True 
Default 


みろ 


| Exit CommandRJtton 


全体 | 項目 | 











居 た 1 = sl 





False 





[( オ ブ ジ ェクト 名 )] プロ パテ ィ の 値 を 「Exit」 
に 変更 する 












m 導 | ここ を ダブ ルク リッ ク 









、 計 放 且 だ に こり Exit 

| ADDearanCe 1 = 3D 2 値 を 入力 
BackColcr 国 &H8Onn00nF& 

Cancel Fa ほ = 

| 』 じ aption 終了 


ausesyalidation True 
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の フォ ー ム の 選択 


フォ ー ム を 選択 する に は 、 
フォ ー ム 上 の コン トロ ー 
ル 以 外 の 部 分 を クリ ッ ク 
じじ ます 。 


2 人 0 


[ Exit CommandButton 


全体 | 項目 串 


| TabStop 
Tag 


に el: 
Top dHUI 


』main Form 


うる [ToolTipText] プロ バ パティ に 「 プ ログ ラム の 終 


了 」 と 入力 する 









に こと を ダフ ブル クリック 
値 を 入力 


フォ ー ム を 選択 し 、[( オ ブ ジ ェクト 名 )] プロ パ 
ティ の 値 を 「main」 に 変更 する 


ーー 選 衣 に ララ 25 ラ 








True 








ブロ ジラ ム の 終了 








性 






全体 | 項目 史 | 
PIE3 條 と | 値 を 入力 
| DD=a ョ ran ご 1 - 3D 
utoRedrawy Fa ほ ぉ = 
| BackColr [| &H8HnnnnnF& 
ー チー 一 ーー ーー・ … 





プロ バテ ィ ウ ィ ン ド ウ で 【[Caption] プロ パテ ィ 
の 値 を | プログ ラム ランチャ ー」| に 変更 する 


ここ を ダラ ルクル リッ ク 
値 を 入力 





ろう 


mmamn Fcrm テ 


全体 | 項目 | 


| 品 uto Redrawy 
| BackColor 
BordsrSty ls 










F ョ |== 
| | &H8HnHnnnF& 
2 - 可 






プロ ヴ ウラ ムラ ンチ ャ ー 


う ⑬ 完成 し た レイ アウ ト 


テア リバ テア ェ エ ユニ 














LeSSOn55 un。 メイ ン モ ジュ ー ル の 作 









w コー ド の 記述 


| 呈 Project1 - main (コー ト ) ー ロ 1 


| |(GeneraD ・| [Dscisrstions) ・| ] 


ターーーーーーーーーーーーーーーーーーーー ン ーー 


Dim Exkec(4) AS S ヒ 了 エ ュ nd 
Dim エエ AS Tnteder 

 D1m ApDpCoun 七 AS Tnteger 
Dim AppTndexrk AS Tnteqer 








ま 





ョ main:AppAdd-Click 


| 開 Project1 - main (コー ト ) =| 品 X| 


_ [AppAda <| [ciick ・| 


P エ ュ で a ヒ 上 Sub AppAqQ C1ick ( ) 
SGEup .Shovw 1 
下 nd Sub 








ョ main:AppDel-Click 


| |AppDel ・| |click <| 


ーーーーmーーーー や ーー アー… 


P エ ュ で a モ 上 Sub AppDe1 C1rck ( ) 
D1m LO 〇 OpDCOun 七 AS エ nEeGder 








つつ DCOun ロ 七 = 1 


人 ADDC 〇 un 七 = GeESe ヒ 1nJ (appname:="ORun" , Seoion :="SetADD" 
人 KG : = "AD や DC の un " ,。 DeEau] 上 :="O") 
App エ nQdex = 8 モ 1 . 葉 エモ 5 上 TnQdex 
FO エ ユエ = 1 中 Oo AppCoun 
De1leteSe ヒ モ ュ nd "ORun" , "SetApDp", ユ 
NG 


8 上 1 .Remoe エ tem AppTndex 

ム ADpDC 〇 un 七 = ADDCOun 七 一 1 

SaVeSe 七 ュ ng appname:="ORun" , SG ご Con : =" Se 上 ADp『 / 
人 KG : = "ADDC 〇 un 七 " 。 SG 七 ユ nm : =ADDC 〇 un 


FOO 臣 O つ O 〇 DC 〇 un 七 = 1 距 O ADpDCOun 
SaYeSe ヒ ュ ng appname:="ORun" , 
SGC キ 1On : ="SGEADp" , Key :=LoopCount , 
SG ヒモ 1 ユ mn: = エ 18 上 1 . エ sg モ 上 (LoopCoun - 1) 
NG 
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エモ AppCount ニ ps 0 mhen 
MsgBoxx "起動 する アプ リケーション を 登録 し て くだ さい 。* 
Setup .Show 1 
End エモ 
AppDe1 . 正 nabLed = Fa1sSe 
ng Sub 





main Exit- Click 


EE = SER 














Exi <| [ciick ( <| 
_ Private SuDb 互 交 ふ 上 CiC ( ) 

| EnQd 

es Sub 


四 malm: Form- Load 
| 四 Project1 - main (コー ト ) 

| |Form ー ILoad ・| | 
Pivate Sub Form Load( ) 


ム AppCOun 七 = GetSe モ 1nqd (appname : ="ORun " , SGC ヒ On : = "SGEADp『" / 
人 Ke : = "ADpDCOun モ ", DeFau ユ 上 :="0") 












エエ APDpCoun 七 = O Then 
MsgBox "起動 する アプ リケーション を 登録 し て くだ さい 。 
Setup .Show 1 
ES@ 
FOY ユエ = 1 "PO AppCOunp 
忌 交 G ご C (1) = GeESe 上 モ 上 ュ nqd(appnames="ORun",。 
SG ご C 七 On : = "SG ヒム App " , Key : = ニュ , DeFau] ユ 七 :="" 
エエ 5 上 1 .AddTtem 巨 交 GC(1) 
NNG 六 上 
End エモ E 
| AppDe1 .EnablLed = Fa1lse 
End Sub 


maim: List1- Click_ 


| 記 コー 1 還 昌 に II Fe ト \ 


還 Lis <| [Ciick <| 








Private Sub Ss 上 1 C11CK( ) 
| AppDe1 .Enab1ed = True 
EnQd Sub 








LeSSOn ら 5 n) メイ ン モ ジュ ー ル の 作 


引 maIin:Run-Click 


ep 





 P エ ュ ゞ ateG Sub Run C11oCKk( ) 
D ュ 1m ReG ヒ AS8 Va エ ュ an 
ADpDC 〇 un 七 = GeGESeG モ ュ 1nd (appname:="ORun", Sec モ ion:="SetAppD", 
人 KG : = "ADDCOun 七 "。 DeEau] 上 :="0") 


FO エ ユエ = 1 呈 O AppCoun キ 
ExeG ご (1) = GetSe ュ ng (appname:="ORun" ,。 seoion:="SetApp", | 
人 KG : = ミユ, DeFau 上 =="『) 
Re モ ヒ = She11(Exxec( ュ 1) , ゞ bNorma1Focus ) 


NN ら GxX 
| ma1n .W1ndowSta も te = 1 
芯 nd Sub 


者 馬 ワン ポイ ント アド バイ ス 


長い ステ ー ト メン ト は 、 行 継続 文字 |「 _」 (スペ ー ス と アン ダー スコ ア の 組み 合わ せ ) 
を 使 つて 、 複 数 の 行 に 分 割 入力 する こと が で きま す 。 

この 文字 を 使え ば 、 コ ー ド を 画面 に 表示 する 横幅 を せ ば め る こと が で き 、 読 みや すく 
な り ま す 。 メ ッ セ ー ジ ボッ クス に 表示 する 文字 が 多い と き な ど に 使用 する と 便利 で す 。 

メッ セー ジ な どの "(半角 二 重 引用 符 ) を 途中 で 分 割 す る に は 、 二 重 引 用 符 を 閉じ た 
後 、 次 の 行 で 「&」 記号 を 追加 、 ま た 引用 符 か ら 続き を 入力 し ます 。 

行 継続 文字 (_) は 、 最 大 1 行 に 25 個 ま で 使用 する こと が で きま す 。 





CDLUMN ss 
レジ ズ ドリ 
| レジ スト リ 」 と いう の は 、Windows が シス テム 設定 や アプ リケーション 情報 を 記録 し て お 


くだ め の 、 デ ー タ ベー ス 機 能 の こと で す 。 例え ば 、 ア プリ ケー ショ ン を イン スト ー 形 し た フォ 
ル ダ 名 や 、 ユ ー ザ ー 登 録 し て ある 名 前 な ど は 、 こ の レジ スト リ に 保管 され 、 アプリケーション 


で 使わ れ て いま す 。 実際 に は Windows フォ ル ダ の 中 に ある 「System.dat| と 「User.dat| と い 
う 2 つの ファ イル が レジ スト リ の 正体 で す 。 

Windows 3.1 の 時 は 、|Systeminil 「Winini] な どの 設定 ファ イル を 、 ア プリ ケー ショ ン 自 身 
が 個別 に 持っ て いま し た 。 そ の た め 、Windows の ディ レク トリ に は この 「[ini| ファ イル が あふ 
れ て た の で す が 、Windows 95 か ら は 、 こ の レジ スト リ 方 式 を 採用 し 、 一 括 管理 する よう に し た 
た め 、 ア プリ ケー ショ ン が 個別 に 設定 ファ イル を 持つ 必要 が な く な り ま し た 。 
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この メイ ン フ ォ ー ム の 動作 を 説明 し て お きま す 。 


① フ ォ ー ム が 起動 する と 、Windows の レジ スト リ か ら 、 超 動き せ た い アプ リ ケ ー 
ショ ン の フル パス を 取得 し 、 リ スト ボッ クス に 登録 し ます 。 

② 登 録 す る アプ リケーション が な い 場 合 は 、 セ セットアップ ダイ アロ グ ボ ックス を 
表示 し ます 。 

③[Run] ボタ ン を 押す と 、 登 録 し た アプ リケーション を 起動 し ます 。 起動 後 、 
プロ グラ ム は 最小 化 さ れ ま す 。 

④ ア プリ ケー ショ ン の 登録 は [追加] ボタ ン を 押す と 表示 きれ る [セットアップ] 
ダイ アロ グ ボ ックス で 行い ます 。 登録 し た アプ リケーション は 、Windows の レ 
ジス トリ に 保存 きれ ます 。 

⑤) セット アッ プ ダ イア ログ ボッ クス で の 処理 は 、 次 の レッ スン で 別に 作成 し ます 
か ら 、[ 追 加 ] ボタ ン は ダイ アロ グ ボ ックス を 表示 する 処理 し か 行い ませ ん 。 

⑥) リ スト ボッ クス に 登録 きれ た アプ リケーション を クリ ッ ク す る と 、[ 削 除 ] ボタ 
ン が 有効 に な り 、 リ スト ボッ クス か ら 削 除 す る こと が で きま す 。 同時 に 、 
Windows の レジ スト リ か ら も 情報 を 削除 し 、 レ ジス トリ を 設定 し 直し ます 。 


アプ リケーション を 登録 し た 
状態 


layer_exe 
\WINNT\SYSTEIM32\RA&SPHONE.EXE 





[セッ ト ア ッ プ ] ダイ アロ グ 


ボッ クス を 呼び 出し た 状態 






結党 oc: ーー 
|c\WiNNT\SYSTEM32\RASPHONE EXE 











LeSSOn25 un)。 メイ ン モ ジュ ー ル の 作 


最初 に 、 モ ジュ ー ル レベ ル の 変数 を 宣言 し ます 。 


Dim ExecC(4) As 8 上 と ng 
Dim 1 AS TnEegde エ 

Dim ADDCOun 七 AS Tnteder 
Dim AppTndex AS エ Tnteger 


ii は ルー プ の カウ ンタ 用 の 変数 で す 。「AppCount| は Windows の レジ スト リ に 
保存 し て ある 、 登 録 ア プリ ケー ショ ン の 数 を 保存 する 変数 、「AppIndex」 は リス ト 
ボッ クス の リス ト 項 目 番号 を 格納 する の に 使用 し ます 。 

ここ で ポイ ント に な る の は 、 変 数 IExec(4)]」 で す 。 この 変数 だ け 「(④」 が 付い 
て いる の は 、 配 列 用 変数 と し て 宣言 し て いる か ら で す 。 

| 配列] と いう の は 、 同 じ 種 類 の デー タ を いく つも まとめ た も の を いい ます 。 そ し 
て 、 こ の 配列 デー タ を 変数 に 格納 する 場合 は 、 変 数 を 配列 で 官 言 し て お きま す 。 


急 変数 IExec(4)」 は 、 登 録 す る アプ リケーション 名 を フル パス で 格納 し ます 。4 つ 
まで の アプ リケーション を 格納 し ます か ら 、 変 数 を 4 つ 用 意 し て も 構わ な い の で す 
が 、 配 列 型 の 変数 を 使用 する と 、 変 数 は 1 つ で 済み ます 。 変数 を 配列 で 宣言 する 場 
合 は 、 変 数 名 の 後に () 付き の 数 字 を 付け 加え ます 。 こ の 数 字 は 「 要 素数 ] や [ イ 
ン デ ックス 」 と 呼ば れる 数 字 で 、 全 部 で いく つの 配列 に する の か を 指定 し ます 。 
|Exec(4)」 と 宣言 する と 、Exec(0)~ Exec(4) ま で の 、 全 部 で 5 つの デー タ が 格納 で 
きる 変数 を 用 意 し た こと に な り ま す 。 
配列 変数 に デー タ を 格納 する 場合 は 、 何 番目 の 配列 に 格納 する の か 、 を 指定 し ま 
す 。 配列 の 最初 に 格納 する 場合 は 、 


EXGC(0) = "He11o!" 


と な り ま す 。 3 番目 の 配列 に 格納 する に は 、 


EXGC(2) = "We1come" 


と いう 記述 に な り ま す 。 配列 番号 は 、 必 ず 「0」 か ら 始 まり ます 。 で すか ら 、 
|Exec(4)」 と 宣言 し た 配列 変数 は 、「Exec(0)| か ら 「Exec(4)| まで の 5 つの 配列 に 
な り ま す 。 

配列 の 要素 数 が 数 字 で 指定 で きる と いう こと は 、 配 列 番 号 に 変数 を 指定 で きる と 
いう こと で す 。 さら に 、 変 数 で 配列 番号 を 指定 で きる と いう こと は 、 ル ー プ 処理 な 
ど と 組み 合わ せ て 、 変 数 へ の 値 の 代入 を 、 式 を 使っ て 自動 化 で きる と いう こと に も 
半生 地 す 。 
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= 


到 交 GC( ) 


ws|  、. 訓 | Hello!] を 取り 出す に は 
ss ] IExec(0)」 を 指定 し ます 。 
1 | 
ま ーーーーーー ペ ーー [Welcome」 を 取り 出す に は 
| 〒 | Exec(②」 を 指定 し ます 。 








生 





変数 宜 言 を し た ら 、 フ ォ ー ム の 初期 化 処理 を 組み 立て ます 。 
最初 に 、Windows の レジ スト リ を 読み 込み 、 ア プリ ケー ショ ン が いく つ 登 録 さ れ 
て いる の か を 調べ 、 変 数 | AppCount」 に 格納 し ます 。 


AppCOun 七 = GeGESeG モ ュ nqd(appname :="ORun" , SGC モ on : =" SG ヒム ApDp『" / 
Key : ="ADpDCoun モ 上 ",。 DeEFau ユ 上 =:="0『) 


レジ スト リ か ら デ ー タ を 読み 出す に は 、「GetSetting」 関数 を 使い ます 。 
Windows の レジ スト リ は 、 全 部 で 4 つの 項目 で 構成 され て いま す 。 


【GetSetting 関数 の 書式 】 
GetSe ヒ 上 ngd (appname, SeGC モ on, 人 Key [, DeFau1 モ ] ) 
appname レジ スト リエ ント リ の 最初 の 名 前 で す 。 主 に アプ リケーション の 名 前 
が 使わ れ ま す が 、 他 の 名 前 を 自由 に 付け て も か まい ませ ん 。 
Secion アプ リケーション 名 の レジ スト リエ ント リ に は 、 複 数 の 設定 信 域 ( レ 


ジス トリ エディ タ で は キー を 保存 する フォ ル ダ と し て 表示 され る ) を 
持て ます 。 こ こ で は 、 そ の 中 の 1 つ を 指定 し ます 。 


Key レジ スト リキ ー (レジ スト リ に 設定 する 値 ) の 名 前 を 指定 し ます 。 
DeFau1 モ キー 設定 に 数 値 が 指定 され て いな い 場 合 (つま り レ ジス トリ に 情報 の 


登録 が 無い 場合 ) に 返す 値 を 含む 式 を 指定 し ます 。 省 略す る と 長 さ o 
の 文字 列 ("") と な り ま す 。 
この 例題 プロ グラ ム で は 、|QRun -SetApp」 に ある 「AppCount」 と いう キー 
( 炊 ペ ー ジ の 上 図 参照 ) に 、 登 録 す る アプ リケーション の 値 を 設定 し て いま す 。 これ 
ら の 名 前 は 、 レ ジス トリ へ の 書き 込み 設定 時 に 、 プ ログ ラマ が 自由 に 付け る こと が 
で きま す 。 レジ スト リ に アク セス し て 値 を 取り 出す に は 、GetSetting 関数 に 、 こ れ 
ら の レジ スト リエ ント リ の 名 前 と キー を 指定 し て 行い ます 。 代入 記号 は |「=] で は 
な く |:=」 を 使い ます 。 
レジ スト リ の 構成 は 、Windows が イン スト ー ル され て いる フォ ル ダ に ある 、 
| regedit.exe」 を 起動 し て 調べ る こと が で きま す 。 
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レジ スト リ テ ー ブ ル に 設定 され た 
フン チャ ー プ ログ ラム の 設定 






5 WIIW **** ) 
レジ スズ ストリ エディタ 
レジ スト リ を 操作 する に は 、Visual Basic の よう に アプ リケーション 側 で レジ スト リ デ ー タ の 


読み 書き を する 機能 を 組み 込む か 、 専 用 の プロ グラ ム |regedit.exe」 を 使用 し ます 。 こ の レジ 
スト リ 操 作 プ ログ ラム 「regedit.exe」 を 、[「 レ ジス トリ エディ タ | と 呼び ます 。 作成 し た ラン チ 


ャ ー プ ログ ラム の レジ スト リ も 、 こ の レジ スト リエ ディ タ で 設定 を 変更 で きま す 。 

し か し 、 レ ジス トリ に は 、 自 分 の プロ グラ ム で 使う 以外 に 、Windows の 動作 を 設定 する た め 
の 重要 な 情報 も 格納 され て いる の で 、 む や み に 設 定 値 を 変更 し な いよ うに し て くだ さい 。 失敗 
する と Windows 自体 を 破壊 する 恐 れ が あり ます 。 





に アプ リケーション が 登録 され て いな けれ ば 、 変 数 AppCount の 値 は 「0| な の で 、 
メッ セー ジ ボ ッ クス を 表示 し 、 セ ッ ト ア ッ プ ダイ アロ グ ボ ックス を 表示 し ます 。 


エエ ApDpCoun モ = O Then 


MsgBox "起動 する アプ リケーション を 登録 し て くだ さい 。* 
Setup .Show 1 


アプ リケーション が 登録 され て いれ ば 、 レ ジス トリ か ら 順 番 に 登録 きれ て いる ア 
プリ ケー ショ ン 名 を 、 配 列 変 数 IExec()」 に 格納 し ます 。 こ の と き 、 配 列 変 数 
|Exec⑪」 の 配列 番号 は 変数 [il を 使用 し 、For..Next ル ー プ で 配列 に アプ リ ケ ー シ 
ョ ン 名 を 格納 し て いま す 。 

ルー プ は 、 変 数 |「AppCount」 を 使っ て 、 レ ジス トリ に 登録 し て ある アプ リ ケ ー 
ショ ン の 数 だ け 回 る よう に し て いま す =1 の と きか ら AppCount の 値 ま で )。 

また 、 各 アプ リケーション 名 は 、 レ ジス トリ の キー を 「1」 「2| と 数 字 で 設定 し て 
いる の で 、GetSetting 関 数 の 引数 に 変数 | 骨 を その まま 使う こと が で きま す 。 

レジ スト リ か ら 読 み 込ん だ アプ リケーション 名 は 、AddItem メ ソ ッ ド を 使っ て 、 
リス ト ボ ックス コン トロ ー ル に 追加 し て いき ます 。 
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下 1s@ 
FO エ 1 = 1 中 O ADpDCOun 
ExxGC( エ ) = GetSetting(appname:="ORun", 
SGC1On : =" SGEADp" , KGY:= ニ エ , 
DeEFau ユ 上 =:="『) 
1s 上 1 .AQdQTtem ExecC( ふ ) 
Next 
End エモ 


最後 に 、| 削除 ] ボタ ン を 動作 で き な い よう に し て いま す 。 こ れ は 、 リ スト ボッ ク 
ス の 項目 が 選択 され て いな い の に ボタ ン が 押さ れる と 、 プ ログ ラム が エラ ー を 起こ 
し て し まい ます の で 、 こ れ を 防止 する た めで す 。 


AppDe1 .Enab1Led = Fa1se 


AppCount レジ スト リキ ー の 取得 
If.Then..…Else 文 * 


登録 の た め の セ ッ ト ア 
ッ プ アプ リケーション 
を 表示 

























次 の 繰り 返し 





List ] に [番目 の 
ExecC を 追加 表示 





繰り 返し 終了 
プア 


削除 ボタ ン (App.Del]1 ) 
を 動作 不可 に する 


[追加 ] ボタ ン が 押さ れる と 、 セ ッ ト ア ッ プ ダイ アロ グ ボ ックス が 表示 され ます 。 
実際 の アプ リケーション の 登録 は 、 こ の セッ ト ア ッ プ ダイ アロ グ ボ ックス で 行い ま 
す (これ は 、 次 の レッ スン で 解説 し ます )。 

ここ で は 、Show メ ソ ッ ド を 使っ て 、 ダ イア ログ ボッ クス 用 の フォ ー ム を 表示 す 


る だ け に な り ま す 。 





GO 
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P エ ュ で a モ 上 Sub AppAqdQd_ C11CK ( ) 
Setup .Show 1 
正 nd Sub 


が [削除 ] ボタ ン の 処理 は 、 や や 複雑 で す 。 ボ タン が 押さ れる と 、 最 初 に レジ スト リ 
の 登録 を すべ て 消し ます 。 そ し て 、 リ スト ボッ クス で 選択 され た 項目 を 、 リ スト ボ 
ックス か ら 削 除 し ます 。 な ぜ 、 最 初 に レジ スト リ の 登録 を すべ て 抹消 する か と いう 
と 、 リ スト ボッ クス は 、[Sorted] プロ パテ ィ を 「True」 に 設定 し て あり ます か ら 、 
項目 が 削除 され る と 自動 的 に リス ト が 並べ 禁 え ん られ て し まい ます 。 

その た め 、 レ ジス トリ に 登録 きれ て いる 順番 と リス ト ボ ックス の 順番 が 食い 違っ 
て し まい ます 。 そ こ で 、 一 了 芋 レ ジス トリ の 登録 を すべ て 消し て 、 リ スト に 残さ れ た 
項目 を 再度 その まま レジ スト リ に 登録 し 直し ます 。 

で は 、 順 番 に 説明 し て いき まし ょ う 。 


半 まず 、 プ ロ シ ー ジ ャ の 先頭 で 、For..Next ループ の た め の 変 数 「LoopCount」 を 宣 
言 し ます 。 こ の プロ シー ジャ で は 、2 種 類 の For..Next ルー プ を 使用 し ます の で 、 そ 
の 1 つの ルー プ カ ウ ンタ に 使用 し ます 。 
宣言 し た ら 、|「1」 を 代入 し て 初期 化し て お きま す 。 


P エ ュ で a モ @ Sub AppDe1 C11CK( ) 
D1m OO 〇 DCOun 七 AS エロ 上 G す @G エ 


LOOpCOun 七 = 1 


続い て 、GetSetting 関数 を 用 いて 、 レ ジス トリ に 保存 きれ て いる アプ リ ケ ー シ ョ 
ン の 数 「AppCount」 を 読み 出し 、 変 数 AppCount に 格納 し ます 。 これ は 、 登 録 ア 
プリ ケー ショ ン が 削除 され た と き 、 残 り の 登録 数 を 計算 する た め に 使用 し ます 。 

また 、 現 在 リ スト ボッ クス コン トロ ー ル で 選択 きれ て いる 項目 を 把握 する た め に 、 
[ListIndex| プロ パテ ィ の 値 を 変数 |AppIndex」 に 格納 し ます 。 

この [ListIndex| プロ パテ ィ は 、 現 在 選 択 さ きれ て いる リス ト 項 目 の イ ン デ ックス 
番号 を 格納 し て いる プロ パテ ィ で 、 リ スト ボッ クス か ら 項 目 を 削除 する と き に 使用 
oo 





ADDCOun 七 = GeESe モ 上 モ ュ nd(appname:="ORun" , SeGC モ 1on:="SetADDp", 
K@GY : = "ADpDCOun モ ",。 DeEFau モ 上:="0") 


AppTnQdexx = 1S モ 上 1 . 世 エエ 5 上 Tndexx 


』《) For..Next ル ー プ を 用 いて 、 レ ジス トリ テー ブル か ら 、 登録 し て ある アプ リ ケ ー 
ショ ン を すべて 削除 し ます 。 変数 AppCount の 値 を 使っ て 、 登 録 数 分 の 回 数 の ルー 
プ を 回 し ます 。 
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レジ スト リ か ら キ ー と 値 を 削除 する に は 、DeleteSetting ス テー トメ ント を 使用 し 
ます 。GetSetting と 同様 に パラ メー タ に 、 レ ジス トリ の appname、section、key を 
指定 し ます 。 


FO エ 1 = 1 TO AppCoun 
De1eteSet モ ュ nd "ORun" ,。 "Set 上 ApDpD",。 ユエ 
NG 上 


【DeleteSettin 互 ステ ー ト メン ト の 書式 】 
De1eteSe ヒ ヒュ nd appname, SGC ヒ + ュ on [ , key] 


appname 削 陸 す る レジ スト リ の アプ リケーション 名 を 指定 し ます 。 
Section 削除 する キー が 設定 され た セク ショ ン 名 を 指定 し ます 。 
key 削 除 す る キー 名 を 含む 文字 列 を 指定 し ます 。 省 略 可 能 。 





骨 骨 レジ スト リ を 削除 し た ら 、 リ スト ボッ クス か ら 項 目 名 を 削除 レ しま す 。 こ れ は 、 
RemoveItem メ ソ ッ ド を 使用 し ます 。 引 数 に は 、 リ スト 項目 の 番号 を 指定 し ます 。 


1 Ss 上 1 .Remoe エ tem AppTndex 


リス ト ボ ックス コン トロ ー ル の [Sorted] プロ パテ ィ を 「True」 に 設定 し て ある 
の で 、 削 除き され た 時 点 で リス ト 項 目 は 昇順 に 並べ 茜 え られ ます 。 そ し て 、 登 録 ア プ 
リケーション が 1 つ 減 り ま すか ら 、 変 数 AppCount の 値 を 1 つ 減 らし て お きま す 。 


APDpDCOun 七 = APDpDCOun 上 モ - 1 





m 較 | 項目 を 削除 する と … 






wms 


紀 2 c\WINNT*S TE 





ADDCOuUTnt = づ 一 1]= ど 
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リス ト ボ ックス の 項目 の 削除 
リス ト ボ ックス の 項目 を 削除 する 場合 、RemoveItem メソ ッ ド を 使い ます が 、 削 除 する 項目 


の 指定 に は 、 リ スト 項目 の 番号 を 使い ます 。AddItem メ ソ ッ ド は 、 追 加 す る 項目 名 を 使い まし 
た が 、RemoveItem メ ソ ッ ド で は 項目 番号 で 指定 する の で 、 間 違え な いで くだ さい 。 





凡 少 。 リス ト ボ ックス の 処理 が 終わ っ た ら 、 リ スト 項目 を すべ て レジ スト リ へ 書き 出し 、 
変更 内 容 を レジ スト リ に 再 保存 し ます 。 こ れ は 、 登 録 ア プリ ケー ショ ン が 削除 きれ 
れ ば 、 こ こ で レジ スト リ に 設定 し た アプ リケーション の 数 も 変更 する た めで す 。 
レジ スト リ へ の 書き 込み は 、「[SaveSetting] ステ ー ト メン ト を 使用 し ます 。 パラ 
メー タ と し て 、 レ ジス トリ エン トリ の 名 前 と セク ショ ン 、 キ ー と その 値 を 順番 に 指 
定 し ます 。 こ こ で は 、 キ ー に 格納 する 値 (Setting) は 、 登 録 す る アプ リケーション 
の 数 を 設定 し ます 。 ア プリ ケー ショ ン の 数 は 、|「QRun - SetApp - AppCount」 と 
いう レジ スト リエ ント リ と キー を 設定 し て いる の で 、 リ スト ボッ クス に 登録 し た ア 
プリ ケー ショ ン の 数 を キー 「AppCount」 に 値 と し て 保存 し ます 。 


SaveSet モ nd appname:="ORun" , SGC 七 on : ="SGEADp『" / 
Ke : = "ADDCO 〇 un 七 " 。 SG 七 七 md : =AD や CO 〇 un モ 


』 久 SaveSettiing ス テー トメ ント は 、Windows 95/98 (また は Windows NT 4.0) の レ 
ジス トリ デー タベース に 、 ア プリ ケー ショ ン 固 有 の 情報 を 保存 する ステ ー ト メン ト 
で す 。 ス テー トメ ント の パラ メー タ に 、 レ ジス トリ の 名 称 、 そ の 中 の セク ショ ン 、 
そし て キー と 値 を 目 由 に 設定 し て 使う こと が で きま す 。 


【SaveSettin 呈 ステ ー ト メン ト の 書式 】 


SaeSe 上 nd appname, SGC ュ on , Key, Sen 


appname 設定 する アプ リケーション の 名 前 を 文字 列 で 指定 し ます 。 

SGC も ュ ion 保存 する キー を 設定 する セク ショ ン の 名 前 を 文字 列 で 指定 し ます 。 
key 値 を 格納 する キー を 文字 列 で 設定 し ます 。 

Se て ng キー に 格納 する 値 、 ま た は 値 を 訪 む 式 を 指定 し ます 。 


通常 、 ア プリ ケー ショ ン 1 つ に 対し て 1 つの 「appname」 を 設定 し ます 。 そ し て 、 
この 中 に は 複数 の 「sectiion]」 を 設定 で きま す 。 こ の プロ グラ ム で は 、 ア プリ ケー シ 
ョ ン の 登録 数 と 、 登 録 ア プリ ケー ショ ン の フル パス 名 の 、2 種 類 の section を 設定 し 
て いま す 。section の 中 に は 、 き さら に いく つも の キー を 設定 し 、1 つ の キー に 対し て 
1 つの 値 を 持つ こと が で きま す 。 
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レジ スト リ は 、Windows の シス テム や コン ピュ ー タ に イン スト ー ル され た 各 ア プ 
リケーション が 自分 の 領域 を 設定 する た め に 使用 し て いま す 。 Visual Basic の ユー 
ザー プロ グラ ム が レジ スト リ を 使え る 領域 も 決ま っ て お り 、 筆 者 の Windows 98 で 
は |IHKEY_CURRENT_USER\Software\VB and VBA Program Settings| の 中 
に 設定 され て いま す 。 

た だ し 、 こ の レジ スト リ は あく まで も 1 つの 例 で あり 、 使 用 する コン ピュ ー タ シ 
ステ ム や Windows NT 4.0 な ど 他 の OS で は 少し 違っ て くる 場合 ね あり ます 。 
Windows の フォ ル ダ に 、|regedit.exe| と いう レジ スト リ を 読み 書き で きる プロ グ 
ラム が ある の で 、 こ れ を 使っ て 自分 の コン ピュ ー タ の レジ スト リ を 調べ て くだ さい 。 





[編集 ] メニ ュー か ら [検索 ] を 選択 







|QRun」 を 検索 する 





Windows 98 の レジ スト リ 
テー ブル 
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上 衝 。 ププ リケーション の 数 を 登録 し た ら 、 続 いて 実際 の 登録 アプ リケーション を フル 
パス で レジ スト リ に 保存 し ます 。 

リス ト ボ ックス の [Listl プロ パテ ィ に は 、 リ スト ボッ クス に 登録 し た アプ リ ケ 
ー ン ョ ン が フル パス で 記述 され て いま すか ら (Listl.List(LoopCount-1)) 、For..Next 
ルー プ を 使っ て リス ト ボ ックス の すべ て の アプ リケーション を レジ スト リ に 1 つ ず 
つ 書 き 出 し て いき ます 。 
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これ で 、 リ スト ボッ クス に 登録 され て いる アプ リケーション の 情報 は 、 すべて 更 
新 さ きれ て レジ スト リ に 保存 され ます 。 


FO 〇 エエ OO 〇 DC 〇 un 七 = 1 中 O ADpDCO 〇 un 上 
SareSe 七 ュ nqd appname:="ORun" , SeGC モ on:="SetADpD", 
人 KG : = 臣 O 〇 O 〇 DCOuUn 七 。 
SG 二 七 1nmd : = エエ 8 上 1 . 工 エモ (LOoOpCoun 七 - 11) 
NG 上 


も し 、 リ スト ボッ クス の 項目 が すべ て 削除 さき れる と 、 再 度 ア プリ ケー ショ ン を 登 
鉄 す る よう に メッ セー ジ ボ ッ クス を 表示 し ます 。 メ ッ セ ー ジ ボッ クス の IOK] ポ 
タン が 押さ きれ る と 、 セ ッ ト ア ッ プ 用 の ダイ アロ グ ボ ックス を 表示 し ます 。 

そし て 、[ 削 除 ] ボタ ン の プロ シー ジャ の 最後 で 、[ 削 除 ] ボタ ン の 和 無効 処理 を し 
ます 。 こ れ は 、 リ スト ボッ クス の 項目 が 選択 きれ て いな い の に 、[ 削 除 ] ボタ ン が 動 
作 す る の を 防止 する た めで す 。 





1 タ 





エエ ADDCOun 七 = 0O Then 
MsgBox "起動 する アプ リケーション を 登録 し て くだ さい 。" 
Setup .Show 1 

EnQd TE 

AppDe1 .Enab1ed = Fa1Se 


4 つ 以 上 登録 で き な い よう に する に は 


ここ で 解説 し た コー ド を 実行 する と 、4 つ 以上 アプ リケーション を 登録 で きま す が 、 い っ た ん 
プロ グラ ム を 終了 し て 、 再 度 起動 する と エラ ー に な っ て し まい ます 。 これ は 有効 な 配列 変数 
Exec() が 用 意 き れ て いな いこ と が 原因 で す 。 

シー ザー ンー が 4 つ は 上 の アプ リケーション を 登録 よう と し た ら こ ツマ ギヤ セージ ボッ クス を 表示 
し て 登録 さき せな いよ うに する に は 、[ 追 加 ] ボタ ン に コー ド を 記述 する と いい で し ょ う 。 


[Private Sub AppAdd Cliick」 プロ シー ジャ の コー ド を 以下 の よう に 変更 し て くだ さい (この 
処理 は サン プル プロ グラ ム に は 追加 きれ て いま す )。 


エ F 葉 18 モ 上 1. エエ S 上 Counm モ 上 < 4 then 
Setup .Show 1 
下 1Se 
MsgBox "4 つ 以 上 は 登録 で きま せん 
End TE 
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AppDel_Click の 処理 の 流れ (要約 ) 
LOODCOunt に 1 を 代入 












レジ スト リ に 保存 され て いる アプ リ ケ 
ーション 数 を GetSetting 関数 で 取得 






リス ト ボ ックス の 項目 
数 を ApplIndex に 代入 


1 か ら AppCount 
値 ま で 繰り 返し 












DeleteSetting 関数 


ONBt | | で レジ スト リ 情 報 削除 


リス ト ボ ックス か どら ど 選 
択 さ れ た 項目 名 を 削除 


ADpCount か ら ] 減ら す 


減少 し た アプ リ ケ ー LOODCount= 1] か ら 
ショ ン の 数 を 再 登録 ADDpCOunt 値 ま で 繰り 返し 









リス ト ボ ックス の すべ て の 
アプ リケーション 名 を レジ 
スト リ に 書き 出し 保存 


繰り 返し 終了 次 の 繰り 返し 


ゲ 
登録 が 0 の 時 は 登録 処理 を 実生 
削除 ボタ ン を 無効 
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本 6 今度 は 、 登 録 し た アプ リケーション プロ グラ ム を 実行 させ る [Run] ボタ ン の 処 

理 を 作成 し ます 。 

まず 、 レ ジス トリ か ら 、 登 録 さ きれ て いる アプ リケーション 名 を フル パス で 取得 し 
ます 。 フ ォ ー ム の Load0 イ ベン ト プ ロ シー ジャ で も 、 同 じ よ うに レジ スト リ か ら 保 
存 内 容 を 取得 し て いま す が 、 こ れ は リス ト ボ ックス の 初期 状態 の 作成 に 使用 し て い 
る た めで す 。 その後 、 ユ ー ザ ー に よっ て アプ リケーション の 追加 や 削除 が 行わ れ て 
いる 可能 性 が あり ます か ら 、[Run] ボタ ン が 押さ れ た 時 点 で 、 再 度 レ ジス トリ を 読 
み 出 し て 、 最 新 の 情報 を 取得 し ます 。 

読み 出し た アプ リケーション の パス と 名 前 は 、 配 列 で 準備 し た 変数 IExec」 に 、 
For.…Next ル ー プ を 使っ て 、 順 番 に 格納 し ます 。 ル ー プ の 回 数 は 、 レ ジス トリ に あ 
る キー |「AppCount」 に 保存 きれ て いる 、 ア プリ ケー ショ ン の 登録 数 を 使い ます 。 


P ェ ュ で a モ te Sub Run C1ick( ) 
D1m Re ヒ AS Va エ ュ ap ロ ヒ 


AppDCOun 七 = Ge モ E 上 Se ヒュ nd (appname:="ORun", 
SGC も 1onm :="SetAPDD", 
KGY : = "ADDCoOun 上 ",。 DeEFau] ユ 上 :="0") 


FO エ ユエ = 1 中 O ADpDCOun 
万 交 GC (ユエ) = GetSe モ ュ nqd(appnames="ORun", 
8S ら GC 七 1onm :="SetLAPDpD",。 
K ら Gy : ニュ ユ , DeFau1 ユ 上 =:="") 
Ret = She11 (Exec (1) , ゞ で bNorma1FocuS8 ) 
NNG 六 ヒ 
ma1n .WindowState = 1 
nd Sub 





7 他 の プロ グラ ム を 呼び 出し て 実行 する の は 、Shell 関数 で 行い ます 。 こ の 関数 は 、 
引数 に 実行 し た い プ ログ ラム 名 と 表示 形態 を 指定 し ます 。 


Ret = She11 (Exec (1) , vbNorma1Focus ) 


【Shell 関数 の 書式 】 


She11 (pathname [ , 1ndow] ) 


pathname 実行 する プロ グラ ム 名 の フル バス 名 を 指定 し ます 。 
window 表示 する プロ グラ ム の ウィ ンド ウ の 形態 を 定数 で 指定 し ます 。 省略 可 
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1S 





1 





プロ グラ ム 名 は フル パス で 記述 し 、 表 示 形 式 は 定数 (以下 の 表 参 照 ) を 指定 し ま 
す 。Shell 関数 は 、 指 定 し た プロ グラ ム を 実行 する と 、 プ ログ ラム の タス ク ID とい 
う も の (Windows が シス テム 管理 で 使用 し て いる デー タ ) を 返し て きま す の で 、 こ 
れ を バリ アン ト (Variant) 型 の 変数 で 受け 取り ます 。 変数 Ret は 、 戻 り 値 を 受け 取 
る だ け で 、 特 に 何 も 使い ませ ん 。 


く Shell 関数 で 使え る window 定数 値 一 覧 > 
記述 指定 (文字 定数 ) 数 値 指定 表示 され る ボタ ン の 内 容 


| 」 | 通電 に 人 元 さ れる ウィ ンド ウフ っ 
|" 條 pieo 












VDINormalFocuS 







VbNormalNoFocus 通常 表示 に 復元 され る ウィ ンド ウ を バッ 
ク グ ラウ ンド 表示 


バッ ク グ ラウ ンド に 最小 化 表示 


この プロ シー ジャ の 最後 に 、 フ ォ ー ム の [WindowState] プロ パテ ィ を 使っ て 、 
フォ ー ム を アイ コン 化し ます 。[WindowState] プロ パテ ィ は 、 フ ォ ー ム の 表示 形 
感 を 設定 し ます 。 こ の プロ パテ ィ は 、Visual Basic の プロ パテ ィ ウ ィ イン ドウ を 使っ 
て 設定 で きま す が 、 こ の よう に コー ド か ら で も 設定 で きま す 。 プ ログ ラム の 動作 状 
態 に よら て 、 ブ プ ォ ー ム を アイ コン 化し た り 、 最 天 化す る こと が で きま す 。 こ こ で は 、 
アプ リケーション 起動 後に 、 プ ログ ラム その も の を タス ク バ ー に 格納 し 、 ア イコ ン 
で 表示 (vbMinimized) する よう に 指定 し て いま す 。 





VDMinimizedNoFocus 


ma1n .W1ndowSt 上 a も te = 1 


く WindowState 定数 値 一 覧 > 
記述 指定 (文字 定数 ) 





っ 4 トト = 糧 較 主人 と ルン スソ の 


0 | ノー マル 表示 (既定 値 
| 1 | 加 em ぶ 
最大 化 表示 












リス ト ボ ックス で は 、 項 目 が 選択 さき れる と Click イベ ント が 発生 し ます か ら 、 こ 


の と き は じ め て [削除 )] ボタ ン を 有効 に する 処理 を 行い ます 。 


て し て 、 最 後に [終了] ボタ ン が 押さ きれ た と き の 処 理 を 記述 し て 、 完 成 で す 。 
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P エ ュ ゞ a モ e Sub エ Lis モ 上 1 C1iock( ) 
AppDe1 . 正 nab1ed = True 
End Sub 


P エ ュ で a モ @ SuDb 到 x1 モ 上 C1iock( ) 
下 nd 
End Sub 






AppDe1 . 正 nab1ed = Fa1se 





ーー1 ー ス 






EC YY We う = 科 
C ぎ WINNT\SYSTEIM32\cdplayer.sxe 





AppDe1 . 正 nab1ed = "True 








項目 が 選択 され て は じ め て 
[削除 ] ボタ ン が 有効 に な る 


これ まで は 、「*.ini」 な どの プロ ファ イル ・ フ ァイル に その 設定 を 保存 し て 、 
WindowsS の ディ レク トリ に 格納 し て いま し た が 、Windows 95/98 で は レジ スト リ 
を 使う つよ うつ に な っ て いま す 。 レ ジス トリ は 、 自 分 の プロ グラ ム の 設定 を 保存 し て お く 
の に 大 変 便利 な シス テム で す 。 


保存 する に は SaveSetting ほ ステー トメント 、 読 み 出 す に は GetSetting 関数 を 使 
用 する の が 特徴 で す 。 

また 、 レ ジス トリ の 読み 書き ステ ー ト メン ト は 、 自 分 の プロ グラ ム で 使う 領域 し か 
アク セス で きま せん 。 他 の アプ リケーション の 情報 な ど は 取得 で き な い の で 注意 し て 
くだ さい 。 “ 
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ーッ ト アア ーーー 
和志 し ます 。 ま た 、 
ーー 書き を 復習 し ます 。 





ラ 回 作成 する プロ グラ ム 


の ょ エ 





主 c. [IDE-BOOT] 










NETSTAT EXE 


nl=fumniC.=X ら 


プロ グラ ム を 選択 


\C ギ 
%sWINNT 





ICACHE 
ICOLOR 
ICONFIG 


IDHCP ODBCCONF Ex て | 
IDR「yERS 
INETSRV ヽ 
っ キャ ソン セル 追加 [追加 」 を ク リ e の 
Il Macromed 
に に TEL | に する と 





XE 
XE 
XE 
XE 
E 


1OS2 


テリ パテ ア テニ Bm 





| 登録 済み アゴ リケーション 


c そ WIINNT\SYSTEIMG2 キ CALC EXE 





c cPWINNTYS YSTEM32Wcdplsyer exe プロ グラ ム が 滞 録 
WINNT\SYSTEIM32 キ notepad exe 
2 Lesson25.vhp 追加 | 人 
《⑳ VB6CD 
間 Li 
ニコ | eSSO0In25 | 2 | | Run」 を ク リ 3 ク す る 


是 | 二 | と プロ グラ ム が 起動 する 


ここ で は 、 既 に 説明 し た ドラ イブ ・ デ ィ レ クト リ ・ フ ァイル リス 
ト ボ ックス の 3 つの リス トド ボッ クス を 使っ て 、 選択 し た アプ リ ケ ー 
ショ ン を Windows の レジ スト リ に 書き 込み ます 。 

また 、 メ イン フォ ー ム の リス ト ボ ックス へ の 追加 も 行い ます 。 
アプ リケーション の 追加 登録 処置 は 、 単 独 の ユー ザー 定義 プロ シ 
ー ジ ャ を 用 意 し 、 そ れ を コン トロ ー ル の イベ ント プロ シー ジャ に 配 
赴 す る 方 法 を 使い ます 。 
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トロ ー ル と プロ パテ ィ の 設定 


前 回 まで の プロ ジェ クト に [フォーム モジ ュー ル ] っ フ 由 作成 する プロ 
追加 する プク ラム 


アプ リケーション を 登録 








mm。 Project] 一 Microsoft Visual = ji SD 古語 ー き に め の 、 に 
アポ 2, 
7zfMF) 編集 GE) 表示 @) JH ジ ェ 2NP) 章 式 の す リ ンジ ) 













ウ ・at ほ 申 
も ーー 、 に oy な に ド 部 ] 
様 : MDI フォ ー』 キモ ジュール) 
NR 人 「、 丘 麻 標準 キジ ュー ル (M) 
9 ウラ ス モジ ュー ル (C) 
bl 習 ユ ザ ー ヤ ト -MD) 


レ c 思 7 ^ーXBD | 





セッ ト ア ッ プ は 、 専 用 の 

ここ を クジ リック フォ ー ム を 用 意 し 、 そ こ 
あこ 
リ ・ フ ァイル リス ト ポ ボッ 
クス を 使っ て 、 登 録 す る 
アプ リケーション を 選択 
登 き る よう に し ます 。 





フォ ー ム モジ ュー ル を 選択 し 、[ 開 く ] ボタ ン を クリ SYO 
ッ ク す る 


ル の 追加 画面 


この 追加 画面 は Visual 
Basic の Edition に よっ て 
表示 が 異な り ます 。 





[フォ ー ム モジ ュ 
ー ル ] を 選択 





kd 内 ニ 3 


デー タフ ォ ー ム パー ジョ ツ ッ 情報 Web プラ ウザ デイ プロ ゲ 
や た ウィ ザー ト 
[ [1 [+ 


見 出し 画面 の ツ ポイ ルト OpDBC ロロ ゲイル 4 フツ 
が イア が 


半 
1 
| 
ゞ 
si 電 
で 
上 






この ボタ ン を 
タダ リック 


| : 湊 還 か ら この な ロケ の メ を 表示 し な い X 


プロ パテ ィ ウ ィ ン ド ウ で Caption] プロ パテ ィ の 
値 を | 実行 プロ グラ ム の 登録 」 に 変更 する 





Form1 Fcrm 





年] 本 | 
| 琴 別 ここ を ダブ ルク リッ ク 
品 utoRedr ョ wy F ョ ほ = 
BackColcr | | &H8nUnn0nF& 





| 』BorderStyls 2 - 可 実 


、 語 at れ pg 実行 ゴロ ダラ ム の 登録 
ンジ lhpContro ほ True 
ControlBox True 





DrawylMlods 13 - Copy Psn 
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ツー ル ボ ックス の [DriveListBox] 上 計 を クリ ッ ク 
し 、 フ ォ ー ム 上 に ドラ イブ リス ト ボ ックス を 配置 する 


ここ な ント リッ タク 


ドラ イブ リス ト 
ボッ クス 

ドラ イブ を 選択 する と き 
に 使用 する コン トロ ー ル 
うう ユー ザー が ドラ イ 









プ を 選択 する と Drive プロ 
パテ ィ が 変更 され ます 。 
[ 中 : RgpFvee - 台 届 = その まま ここ まで 
ディ レク トリ | レフ ウン 
と リス ト ボ ックス 


フォ ル ダ (ディ レク トリ ) 
を 選択 する と き に 使用 す 
る コン トロ ー ル で す 。 ユ 
ンー が ラ ォ ルケ ゲ を ダテ 
ルク リッ ク す る と 、Path 
プロ パテ ィ が 変更 され ま 
本 。 


ーーー 


ツー ル ボ ックス の [DriListBox] 4 を クリ ッ ク し 、 





ファ イル リス ト 
デ ポッ クス 


フォ ル ダ 内 の ファ イル を 
リス ト 表 示す る コン トロ 
ー ル で す 。 ユー ザー が フ 
ァイル を 選択 する と Path 
プロ パテ ィ が 変更 され ま 


フォ ー ム 上 に ティ レク トリ リス ト ホ ポッ クス を 配置 する 


に (ゲン リウ ツン 









| 「smp lste 
た 1 
S ヽ Wisards ` き 
パタ ー ン (Pattern) と い neo 
う プ ロ パ ティ を 設定 し て P 


特定 の 拡張 子 の み を フィ 
ル タ リ ング 表示 させ る こ 


| 和 へ 」 
と も 可能 で す 。 | っ 。 生生 


ツー ル ボ ックス の [FileListBox] | 六 | を クリ ッ ク し 、 
フォ ー ム 上 に ファ イル リス ト ボ ックス を 配置 する 


に ここ 和 を リック 
その まま ここ まで 
ドラ ツン 








還 : [SDK & DEy60] 


ADDSCCJP.DLL 
ADDSCCUS.DLL 
BIBLIO'NDB 
TTF C2ExXE い ヽ 
CyPACK EXE ゞ 、 | 
あと 時 DATAVIEWDLL ヾ 、 ョ 
LINK EXE ヽ | 
1 「emplste MSDIS110.DLL ヽ 
ITsql MSPDB60.DLL 衣 い ] 
1 WWizards NWIND.MDB | 
REPvB.DLL 、<| 








還 還 旨 時 SS 前 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
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プロ バテ ィ ウ ィ ン ド ウ で [Pattern] プロ パテ ィ の 値 < ン ア ァイル ワ ス ト 


を |*exe」 に 変更 する ボッ クス を 選択 
この 操作 を 行う 前 に 、 作 
2 成 し た ファ イル リス ト ボ 


| 

| ックス コン トロ ー ル が 選 
|File1 FilsListBox 1 | 択 さ れ て いる こと を 確認 

| 


全体 | 項目 別 | し て くだ さい 。 
」 ( ここ を ダブ ルク リッ ク 
「*.exe」 を 入力 


ID と 肖 に 













ツー ル ボ ックス の [CommandButton] - を クリ 
ッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 


リグ テー ェ 1 ロメ 





さき 






語 E [SDK & DEy60] 


マ 


| キ 
% Program Files 
も ロロ 





Il「emplsate 
Il「sql 
1 Wisards 





栖 
や 
Nm 


テー 
* Comrmasdt 
ま 





プロ バテ ィ ウ ィ ン ド ウ で Caption] プロ パテ ィ の 値 < コマ ンド ボタ ン を 
を | キャン セル 」 に 変更 する ン 選択 





この 操作 を 行う 前 に 、 作 
月 中 デア em Fes ] 成 肝 た デン ド ボ タ 2 
ーーーーーーー ント ロー ル が 選択 され て 


lcommand1 CommarndButton sl ] いる こと を 確認 し て くだ 


全体 | 項目 別 | | さい 。 


Commard 1 字 
ゴゴ 1] ここ を ン フ ルウ リ ッ ク 


| | &H8UUUnHUF& 


| Fal=e | 
2 キャ ン セル [キャンセ ル 」 を 入力 
au===V adation True 


ロー こま =, は に = ルー ニー ン ャ | 
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』《) [( オ ブ ジ ェクト 名 )] プロ バテ ィ の 値 を 
| CxXSetup」 に 変更 する 


光 Eh・ 












m 較 | ここ を ダブ ルク リッ ク 
〆 省 | 「cxsetup」 を 入力 





Cx ちち etup に on mandBiuttorn 
全 本 | 項目 別 | 


を の 7 だ | CX= ら tu 
| 性 DD ら ョ F ョ ヨロ ご ら 1 - 8D 
E 揚 四 し の ル し 「 ロ タロ snnnnnnE* 


目 目 ツー ル ボ ックス の CommandButton」 由 胃 を 
クリ ッ ク し 、 コ マン ド ボ タ ン を も うっ 1 つ 配 置 す る 









に St まり ジン 
0 おま て こと まこ 
ドラ ッ ジ 


み プロ バディ ウィ ンド ウ で |6aptionl」 プロ ル バ テ ィ 
の 値 を | 追加 ] に 変更 する 


Ear 3 ] 













「 Gewand1 OofRhhirdBNIKAen に た YS 


全体 | 項目 5 


目 &H8nnnnnnF& 4 


F ョ == 「 
追 吉 「 


ョ ロミ ほら ミ =" ョ | ロ tipn True 






ここ を ジル クリ タン 
| 追加] を 入力 


』 劉 [( オ ブ ジ ェクト 名 )]」 プロ バテ ィ の 値 を 
| AddProgram」 に 変更 する 









JH バテ ィ イー 上 ddProgram 





此 ddPrograml じ ommarndBiutton 


m 導 | ここ を ダブ ルク リッ ク 
全体 | 項目 則 | 
(オジ ェ ッ ウト) 品 ddProgram ] 値 を 入力 
上 刷 DD= ョ コロ ご ら 1 - 3D | 填 を 入力 


BackColor | | &H8HnHnnnF& 
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フォ ー ム を 選択 し 、[( オ ブ ジ ェクト 名 )] プロ バ 
ティ の 値 を 「Setup」 に 変更 する 


lm 較 | ここ を ダブ ルク リッ ク 


』 


は W 陳 昌 に 1 














Setupn 「Fnrrm 
全体 | 項目 | 

を の 7 な ザー ト Setun アン 値 を 入力 
上 hh ココ CB 1 - 3D 

utnRiedrawy False 





| HBUHUHHHHFS 


BackCnlar 
| filemanager.frm」 と いう 名 前 で フォ ー ム を 保 


うる 


名 前 を 付け て ファ イル の 1 率 存 


保存 する 場所 ①: 









加 ほ 旦 








人名 〆 ア 用 | ここ を クリ ッ ク 
2 の 種類 CD ォ キャッ セ ル | 





^ ル ナパ HD | 


1G 完成 し た プロ ジェ クト ファ イル 
コロ ジェ リト - Froject1 
国 品 


Project1 (Le=s=nn2 yhbp} | 
中 - 但 縛 コ オ ー ム 
main (main.frm】 


Ta 還 邊 ロロ に 1 ョ に 14] 内 1aIP 





















第 6 日 ら 時 限 目 


プ フォ ー ム の 選択 


フォ ー ム を 選択 する に は 、 
フォ ー ム 上 の コン トロ ー 
ル 以 外 の 部 分 を クリ ッ ク 
し 


> プロ ジェ クト フォ 
ヽ ュ 一 ム の 名 前 の 確認 
プロ ジェ クト フォ ー ム の 
名 前 は は 、 プ ロジ ェクト エ 
クス プロ ー ラ で 確認 する 
も は まま っ 
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開 Project1 - Setup (コー ト ) 


| |(GeneraD <| |(Declsrations) <| 


AYA の 


































 D1m 1 AS TnEtege ェ 

引 SetuD:AddPr0gram-Click 

_ Private Sub AdqdQdProgram Cock ( ) 

| Ca 1 SGu い App 

End Sub 

時 SetuD:CXSetuD-Click 

| 開 Project1 - Sstup (コー ト ) 

| lcxsetup <| |click ・| | 
_ Private Sub CxSetup C1icKk( ) 

| Seup . 是 1de 

End Sub 

結 Setup:Dir1-Change 

| lpir1 <| |Chanee <| | 
_ Private Sub Dr1 Change( ) 

| Fi1e1 .Path = D ュ て 1 .Path 

End Sub 

ョ Setup:Drive1-Change 

主 io 


Private Sub Drive1 Change( ) 
| D ュ て 1 . Pat 上 h = D エ ュ Ye1 。D エ ミュ ゞ e | 
End Sub | 
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紀 Setun:File1-DbIClick 






| eS 
rie <| |pbiciick ーー 
エエ ュ で a モ 上 ee Sub Fi1e1 Db1C1iock ( ) 
Ca ] SGu い DApp 
芯 nd Sub 


ーー 
EESSUSESRIcSS 証 証 OM 


PB ェ iyate Sub Form Load ( ) 
| ュ = GeESe モ ヒュ nd(appname :="ORun" ,。 SeGc モ ion:="SetApDD",。 
人 KG : = "ADpDCOun 七 " 。 DeEau ユ 上 =:="0") 











End Su 





| \ Project1 - Sstup (コー ト ) 


| |(GeneraD ・| ISetupApp ・| ] 


P エ ュ ゞ で a 上 G Sub SetupApp ( ) 
Dim Re ヒ AS S ヒ エ ュ nq 
Dim 下 交 GCF ユ 1e AS 8 ヒエ ュ nd 


万 交 GCF ュ ユエ らら = D ュ エエ 1 .Path & " 半 " を F ュ 1e1 .E1i1ename 
Ret = MsgBox( "選択 し た アプ リケーション を 登録 し ます か ?, 
ybOKCance1, "アプ リケーション の 登録 ") 


エエ Re モ E = で ゞ DbOK Then 
ュ = GetSe モ 1 ュ ng (appname :="ORun " ,。 SGC 二 1on :="SeEApDpD", 
人 KG : = "ADpDCOun モ " 。 DeEFau ユ 上 =:="0") 
も 呈 + 1 
Sa で eSe ヒ ヒュ ng appname:="ORun" 。 SGC 七 on : =" SG 上 App" / 
人 KG : ニュ , SG 七 1nd : =EzxGCF ュ 1e 
ma1n .L エ 1S 七 1 .AdQTtem ExxecF ュ 1e 


EnQd エエ 


Sa で eSe ヒ 1nd appname:="ORun" ,。 SeGcC 二 1on : ="SGEADDp" , 
人 KG : = "AD や DC 〇 un " 。 SG 七 七 ユ nm : ニュ 


| Seup -H1de 
End Sub | 
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ドラ イブ 、 デ ィ イレ クト リ 、 フ ァイル の 各 リ スト ボッ クス は 、 す で に 使用 方 法 を 説 
明 し た よう に (Lesson24 参照 ) 、[Drive| プロ パテ ィ と [Path] プロ パテ ィ を 連動 
させ て 、 ユ ー ザ ー が 選択 し た ドラ イブ と ディ レク トリ の 内 容 を 表示 で きる よう に し 
上 当 。 


P エ ュ ゞ a モ Ee Sub Drive1 Change ( ) 
D ュ ェ 1 . Pa 上 h = D ェ ve1 .D エ ュ @ 
nd Sub 


P エ ュ で a モ 上 @e Sub D ュ て 1 Change ( ) 
Fi1e1 .Pa 上 h = D ュ 1 .Path 
End Sub 


ファ イル リス ト ボ ックス は 、 ユ ー ザ ー が マウ ス で ダブ ルク リッ ク し た と き に 、 イ 
ベン ト IDbIClick」 を 発生 し ます 。 

ユー ザー が リス ト の ファ イル 名 を ダブ ルク リッ ク す る と 、 そ の まま アプ リ ケ ー シ 
ョ ン と し て 登録 で きる よう に 、 こ の イベ ント プロ シー ジャ で セッ ト ア ッ プ 操作 の プ 
ロ シ ー ジ ャ (SetupApp) を 呼び 出し ます 。 


Pr ュ ate Sub Fi1e1 Db1C1ick ( ) 
Ca SGu い DApp 
EEnd Sub 


[追加 | ボタ ン の 処理 も ね 、 こ の セッ ト ア ッ プ 用 の プロ シー ジャ (SetupApp) を 呼 
び 出 し ます 。 同じ 作業 を 複数 の プロ シー ジャ か ら 呼 び 出す 場合 は 、 こ の よう に 1 つ 
の プロ シー ジャ に 処理 を まとめ て 、 そ れ を 呼び 出す だ け に し て お く と 、 同 じ コ ー ド 
を いく つも 書か な く て すみ ます 。 


P エ ュ ゞ at Sub AdqdQqdProgram C1iok ( ) 
Ca1 1] SGu い DApp 
下 nd Sub 


アプ リケーション の 追加 登録 が あっ た 場合 は 、 何 番目 の アプ リケーション に な る 
の か を 把握 する た め に 、 レ ジス トリ に 保存 きれ て いる 登録 アプ リケーション の 数 を 、 
GetSetting 関 数 を 使っ て 読み 込ん で お きま す 。 

この 処理 は 、 フ ォ ー ム が 表示 され た と き に 実行 きれ る よう に 、 フ ォ ー ム の Load イ 
ベン ト プ ロ シー ジャ で 行っ て お きま す 。 
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P ェ ュ ゞ a モ 上 eG Sub Form Load ( ) 
ュ 1 = Get 上 Se 上 ュ nq(appname:="ORun" , SecC モ ion:="SeEADD", 
KGY : = "ADDCOun モ ヒ "。 DeEFau 上 :="0") 
End Sub 


アプ リケーション を 追加 登録 する 処理 は 、[SetupApp」 と いう プロ シー ジャ を 作 
成 し て 、 こ こ に 記述 し ます 。 

コン トロ ー ル の イベ ント プロ シー ジャ で は な く 、 独自 の プロ シー ジャ を 作成 する 
場合 は 、 キ ー ワ ー ド |Private Sub」 を 付け て プロ シー ジャ を 作成 し ます 。 

作成 し た プロ シー ジャ は 、 コ ント ロー ル の イベ ント プロ シー ジャ の よう に 自動 的 
に 呼び 出 き れる も の で は な いた め 、 呼 び 出 す 場 所 で |Calll ステ ー ト メン ト を 使っ 
て 、 ピ 明示 的 に 呼び 出し ます 。 





う 





プロ シー ジャ |「SetupApp」 で は 、 追 加 す る アプ リケーション の レジ スト リ 保 存 
と メイ ン フ ォ ー ム の リス ト ボ ックス へ の 組み 込み 処理 を 行い ます 。 

最初 に に 、 デ ィ レ クト リリ スト ボッ クス の 【[Path] プロ パテ ィ と 、 フ ァイル リス ト 
ボッ クス の [fiename] プロ パテ ィ を 使っ て 、 登 録 す る アプ リケーション の 名 前 を 
フル パス で 作成 し ます 。 作成 し た ファ イル 名 は 、 変 数 [ExecFile」 に 格納 し ます 。 


P エ ュ で a モ ヒ @G _ Sub SetEupA ム pp ( ) 
Dim Re ヒ AS8 8 ヒエ ュ nqJ 
Dim EzxGCF エ 1eG AS 8 ヒエ ュ nqd 


ExGCF ュ teG = D ュ て 1.Path & " 和 " を 大 1e1.F11ename 


"/ "ファ イル 名 が 作成 で きた ら 、 メ ッ セ ー ジ ボッ クス で ユー ザー に 再度 登録 する か ど 
うか を 尋ね ます 。 [OK] ボタ ン が 押さ れれ ば (Ret=vbOK) 、 フ ァイル 名 を レジ スト 
リ に 保存 し 、 メ イン フォ ー ム の リス ト ボ ックス (main.List1) に AddItem メ ソ ッ ド 
を 使っ て 組み 込み ます 。 こ の と き 、 フ ォ ー ム の オブ ジェ クト 名 まで きち ん と 指定 し 
で くだ さき MG。 


Ret = MsgBoxr(" 選 択 し た アプ リケーション を 登録 し ます か ?", 
ybOokKCance1, "アプ リケーション の 登録 ") 
エエ ReG モ E = で ゞ DbOK Then 
1 = Get 上 Se 上 ュ ng (appname : = "ORun" ,。 SGC モ 1on :="SeEADpD", 
KGY : = "ADpDCOun 上 ", DeFau 和 上 :="0") 
も gm ミエ + 1 
Sa で eSe 上 上 ュ ng appname:="ORun" , SeGC モ ion :="SeEADD", 
人 KG : ニュ ユエ , SG 七 七 ユ nd : = 到 交 GCF ュ 1 
ma1n . 芽 エモ 上 1 .AddT エ tem 下 GCF ュ 1e 
正 nd TE 
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き 


アプ リケーション の 登録 が 終わ っ た ら 、 再 度 登録 アプ リケーション の 数 を レジ ス 
トリ に 保存 し 、 セ モ セットアップ ダイ アロ グ ボ ックス を 閉じ ます (Setup.Hide) 。 


SaVeSe モ 1ng appname:="ORun" , SeGc 二 ion : ="SetADp" , 
人 KG : = "ADDC 〇 un 七 " 。 SG 七 nm : ニュ 
Seup .H1de 


セッ ト ア ッ プ ダイ アロ グ ボ ックス の [キャンセル ] ボタ ン が 押さ れ た 場合 は 、 何 
の 処理 も し ませ ん か ら 、 そ の まま セッ ト ア ッ プ ダイ アロ グ ボ ックス を 閉じ て 、 プロ 
グラ ム の 制御 を メイ ン フ ォ ー ム に 戻し ます 。 





P エ ュ ate Sub oxxsetup C1ick ( ) 
Seup . 芋 1de 
End Sub 


以上 で 、 プ ログ ラム が 完成 で す 。 実行 ボタ ン を 押し て 、 プ ログ ラム を 動作 させ ま 
す 。 好き な アプ リケーション を 登録 し て 、[Runm] ボタ ン を 押す と 、 登 録 し た アプ リ 
ケー ショ ン が 次 々 と 起動 し ます 。 そ し て 、 プ ログ ラム 自身 は 最小 化 さ れ タ スク バー 
に 格納 され ます 。 


レジ スト リ デ テー タ ベー ス を 使っ た アプ リケーション を は じ め て 作成 し まし た 。 こ の 
よう に 、 ア プリ ケー ショ ン で 常に 使用 する デー タ (情報 ) は 、 レ ジス トリ を 使う と 有 
効 で す 。 

また 、 同 じ 処 理 を 複数 の コン トロ ー ル や イベ ント で 使う 場合 は 、1 つの プロ シー ジ 
ャ に まとめ て 、Call ステ ー ト メン ト を 使っ て 、 そ れ を 呼び 出す 形 に し ます 。 こ うし て 
お け ば 、 プ ロ シ ー ジ ャ を 重複 し て 記述 する こと が な く 、 デ バッ グ も し や すく な り ま す 。 

この よう に 、 よ く 使 う 処 理 を 汎用 の ひ プロシージャ と し て 作成 し て お け ば 、 他 の プロ 
グラ ム に も 使え る プロ シー ジャ に な り ま すか ら 、 プ ログ ラム 作成 資源 の 再 利 用 に も つ 
な が り ま す 。 





者 馬 ワン ポイ ント アド バイ ス 


この プロ グラ ム で は 、 登 録 で きる 数 を 4 つ に 制限 し まし た が 、 こ れ は 登録 する アプ 
リケーション の 数 が 、 配 列 変数 [Exec()」 の 配列 数 に 依存 する た めで す 。 
この 配列 数 を も っ と 増やせ ば 、 そ の 分 多く の アプ リケーション を 登録 で きま す 。 











LesSOn25 。 セッ ト ア ッ プ モジ ュー ル の 作 


| @c》 練習 問題 


ER ここ ニニ ーー 





旧 [LesSon ら 5.vbp」 に 手 を 加え て 、 プ ログ ラム 終了 時 に プロ グラ ム の バ 
ー ジ ョ ン 番 号 を 保存 する よう に し て くだ さい 。 


涯 ーー Myoroso1 












レジ スト リ に 設定 され た 
バー ジョ ン 番 号 






【 ヒ ント )】 
レジ スト リ テ ー ブ ル は 、 こ れ ま で 使っ た AppName を 使い ます 。 
ここ で は 、 以 下 の セ クシ ョ ン と キー を 使い ます 。 値 は 文字 列 に し ます 。 
ppDname:='QRun" 
SeCtiOn:='"Version" 
Key:='Build" 


また 、 プ ログ ラム の バー ジョ ン 番 号 は 、ApD オブ ジェ クト の Major 
[Minor] [Revisoin] プロ パテ ィ を 使い ます 。 

これ ら の プロ グラ ム の バー ジョ ン 番 号 は 、Visual Basic の [プロ ジェ 
クト ] メニ ュー の [Project1l の プロ パテ ィ ] を 選 点 と 表示 され る ダイ ア 
ログ ボッ クス の 、[ 実 行 可能 ファ イル の 作成 ] タブ で 設定 で きま す 。 こ こ 
で 設定 され た バー ジョ ン 番 号 が 、AppD オブ ジェ クト の プロ パテ ィ に 格納 
され る 仕組 み に な っ て いま す 。 

この バー ジョ ン 番 号 の 使い 方 は 、 こ の 後 の レ ッ ス ン で も 紹介 し ます 。 








こさ う 22c 


解 合 は 巻末 に 一 
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ドラ イン ワリ スト ホッ ンス て 上 ラー が で る と き は 


この サン プル で は 、 ド ライ ブリ スト ボッ クス の 選択 で 、 使 用 きれ て いな い 和 無効 な ドラ イブ 
(メデ ィ イア が 挿入 きれ て いな い フ ロッ ピー ドラ イブ や CD-ROM ドラ イブ ) を 選択 し て し まう と 
エラ ー が で ます 。 こ の エラ ー を 回 避 す る に は On Error ス テー トメ ント を 利用 し ます 。On Error 
ステ ー ト メン ト が 実行 され る と 、 エ ラー 処理 モー ド が 有効 に な り 、 エ ラー が 発生 する と 「GoTo」 
で 指定 し た ラベ ル ま で 処理 を ジャ ンプ させ ます 。 

Visual Basic で は 、 エ ラー が 発生 する と Err オ プ ジ ェ クト が 生成 され ます 。 こ の Err オプ ジェ 
クト は エラ ー に 関す る いろ いろ な 情報 を 保有 し て いま す 。 そ の 中 で 、Err オ プ ジ ェ クト の 
LErr.Number] プロ パテ ィ を 使用 する と 、 発 生 し た エラ ー に 対応 する エラ ー 番 号 を 取得 で きま 
す 。 こ の プロ パテ ィ を 使用 する と 、 エ ラー 番号 を 使っ て 処理 を 分 岐 し 、 ユー ザー へ の 注意 を 即 
す メ ッ セ ー ジ を 表示 し た り 、 あ る い は その 処理 を 無効 に する 対策 を 作成 で きま す 。 

また 、Error 関数 は 、 エ ラー 番号 に 対応 し た エラ ー メ ッ セ ー ジ を 返す 関数 で す 。 こ の 関数 を 使 
用 すれ ば 、 あ ら か じ め エ ラー 番号 に 対応 し た エラ ー メ ッ セ ー ジ を 使用 する こと が で きま す 。 

この サン ブル で 発生 する 、| デバ イス が 準備 され て いな い | こと を 示す エラ ー の 番号 は 「68」 
で す (付録 エラ ー 番 号 一 覧 ] を 参照 )。 こ れ を 使っ て エラ ー を 処理 し ます 。 ド ライ ブリ スト 
ボッ クス の Change プロ シー ジャ を 以下 の よう に 変更 し て くだ さい 。 こ の 処理 で は 、 も し ユー ザ 
ー が フロ ッッ ピー ディス ク の 入っ て いな い A ド ライ ブ な ど を 選択 する と 、「 デ バイ ス が 準備 され て 
いま せん 。|」 と いう メッ セー ジ が 表示 され ます 。 

エラ ー 処 理 の 実際 に つい て は Lesson32 以降 で 詳し く 説 明 し て いま す 。 


P エ ュ ゞ で a モ 上 @G Sub Drive1 Change ( ) 
On エエ O エ GOTO AA エ エ 
D ュ 1 .Pa 上 h = D エ ュ Ye1 .D エ ュ v@e 
万 ユヒ Sub 


ドム エエ 


MSdBOxX 到 エ エ O エ ( 巨 エエ .Number ) 
End Sub 


ィ ー ーー ーーーーーーーーーー ニ ーーーー ーーーー ーーーーーーー ニ ーー 一 ーー ー ーーーーーーーーーーーーーーーーーーーーーーーーーー 一 
ed 衝 、 





デル イス が 準備 され て いま せん 。 
| ーー 
| 














/ 日 (Lesson ら 6 - Lesson31 ) 
いろ いろ な 







ここ で は 、Windows の 機能 を 活用 する コン トロール を 中 心 に 、 い ろ い ろ な テク ニ 
ッ ク を 紹介 し ます 。 

@ コ モン ダイ アロ グ ボ ックス コン トロ ー ル 

旬 マ ル チ メ ディ アコ ント ロー ル 

@⑱ デ テー タベース コン トロ ー ル 

@ ク ブフ 付き ダイ アロ グ ボ ックス コン トロ ー ル 

る の フォー ム テ ンプ レー ト の 活用 


今日 の レッ スン で 解説 する 項目 

ココ コモ ンダ イア ログ ボッ クス コン トロ ー ル の 設定 方 法 

ココ ダ イア ログ ボッ クス の 戻り 値 の 使い 方 

ロコ モン ダイ アロ グ ボ ックス コン トロ ー ル を 活用 し た アプ リケーション の 作成 
ココ マルチ メ ディ アコ ント ロー ル の プロ パテ ィ や メソ ッ ド の 使い 方 

ココ コード か ら サ ウン ド フ ァイル を 再生 する 方 法 

コロ デー タベース コン トロ ー ル の 初歩 的 な 使い 方 

連結 コン トロール を 操作 し て データ を 表示 する 方 法 

コタ ブ 付 き ダ イア ログ ボッ クス の 使い 方 

コ 答 ペー ジ に 配置 し た コン トロール の 操作 方 法 と フォ ー ム か ら の 呼び 出し 方 法 
ココ フォ ー ム テン プレ ー ト 「 見 出し 画面 ] の 作成 方 法 と 表示 方 法 

















AA LeSSon26.Vbp 
@ VB6CD 
ココ Lesson26 


2 メ フ プス 





コモ ンダ イア ログ ボッ クス 


コモ ンダ イア ログ ボッ クス コン トロール の 設定 方 法 、 ダ イア ログ ボッ ク 
ス の 戻り 値 の 使い 方 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル を 活用 し 
た アプ リケーション の 作成 な ど を 学習 し ます 。 


ラ 回 作成 する プロ グラ ム 


各 ボ タン を クリ ッ ク 
する と 、 対 応 す る ダ 
イア ログ ボッ クス が 
表示 され る 


[ 色 の 設定 






揚 四 mi I 球 問 に 一 
必 大 た 多 ) 2 
コー ョ コーーー Shois eeF_ | 


| は wmme 2 で まう 9 に ここ 。 





zop [ココ vm  、ー っ 引 回 記 に 副 
に る ss Sccv も jp chm 


[ファ イル を 開く ] 


コモ ンダ イア ログ ボッ クス コン トロール を 組み 込む と 、Windows 
が 標準 で 装備 し て いる 、[ フ ァイル を 開く ] [名 前 を 付け て 保存 ] [ 色 
の 設定 ]」 な どの ダイ アロ グ ボ ックス を 、 そ の まま 使用 する こと が で 
さま す 。 こ こ で は 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル の 使い 


万 を 理 酔 する た め に 、3 つの ダイ アロ グ ボ ックス を 表示 する プロ グ 
フ ム を 作成 し ます 。 






2 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


LeSSOnG6 コモ ンダ イア ログ ボッ クス 





ィ の 設定 


ツー ルポ ボッ クス を マウ ス の 右 ポ ボタ ン で クリ ッ ク し 、 
メニ ュー か が から [コン ポー ネン ト ] を 選ぶ 






アイ ME 編集 (E) 表示 2 シェ り KP 書式 〇 ウッ が \D) 実行 外 り -⑩) ヶ 
| 育 ・a・ 本 層 回 ! 生 思 | つ ン | 。 im 選 相 呈 











ヤヤ トロ - ル | デザ 人 サ | 挿入 可能 な わ ツ ェ 9 ト | 


| MMiorosoft Calendar Control 80 ーー 
| Microsoft Chart Control 
. ま Microsoft Chart Control 6 (OLEDB) 





IMicrosoft Comm Control 60 3 

1 ま 
Microsoft Dats Bound Grid Control 50 (GSP3) 可 な 
_」 Microsoft Data Bound List Controls 6 3 貼 


Microsoft DataGrid Control 60 (OLEDB) 

_」 Microsoft DataList Controls 60 (OLEDB) 

_」 Microsoft DataRepester Control 60D (OLEDB) 
Microsoft Dimrect&nimation Medis Contro ほ 





に タン リナ リリ ンク 


[コン トロ ー ル ] タブ で [Microsoft Common 
Dialog Control 6.0] を チェ ッ ク す る 


に Ezzy2 


と を シリ ッ ク 


久 ツー ル ボ ックス に [CommonDialog] ボタ ン が 追加 
され る 






Eommenpialce 










追加 ご れ た 
[CommonDialog] 
ボタ ン 





第 / 日 





Ss コモ ンダ イデ ログ 
間 思 ボッ クス コン ト 
ロー ル 


ゴ モ ン ダイ アロ グ ボ ポ ボッ ク 
スコ ント ロー ル は 、Visual 
Basic の 初期 設定 で は 、 ツ 
ー ル ボッ クス に 組み 込ま 
れ て いま せん 。 使用 する 
際 に 、 ツ ー ル パレ ッ ト に 
コン トロ ー ル を 組み 込む 
必要 が あり ます 。 





1 時 限 目 いろ いろ な テク ニッ ク 


2 プ る 


YE ツー ルポ ボッ クス の [CommonDialog] 國 | を クリ ッ 
8 SAN ク し 、 フ ォ ー ム 上 に 配置 する 
ーー アキ ロー ル 


様 に 、 コ モン アイ アロ PC ここ を クリ ッ ク 
グ ボ ックス コン トロ ー ル | re 
は フォ ー ム 上 の どの 位置 ー コ 
に 置い て も か まい ませ ん 。 | -| 大 | 
を) 主 生 /。 手 
ドラ ッ グ 








ツー ル ボ ックス の CommandButton」 下 を な クリ 
に ッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 
GE グリ ロリ ロック 






っ の コマ ンド ボタ ン 
ヽ ン を 選択 


この 操作 を 行う 前 に 、 作 
門 し た コマ ンド ボタ ンコ 


プロ バテ ィ ウ ィ ン ド ウ で [Caption] プロ バテ ィ の 値 
を 「 フ ァイル を 開く 」 に 変更 する 








2 日 バハ ティ イー Command1 「 
ント ロー ル が 選択 され て | [ 
いる こと を 確認 し て くだ |ICommand1 CommarndButton 引 「 


すら 全体 | 項目 中 | | 


oimarnd 1 
1 9 

| | &H8HUHUUIF& 
F ョ |== 


ファ イル を 隊 択 


ーー 



















ここ を ダン ルン リッ プク 
値 を 入力 


必 ロ D ら ョ 『 ョ ロビ ら 






BackColor 
ご ョ ロ Ce| 


27 全 


LeSSOn つ 6 コモ ンダ イア ログ ボッ クス 





同様 に に フォーム 上 に コマ ンド ボタ ン を ら つ 配置 し 、 
[Caption] プロ バ パティ を 次 の よう に 変更 する 





コマ ンド ボタ ン [Caption] プロ パテ ィ 


Command2 


Command3 色 の 設 





皿 引 
コ ァ イル を 開く | 人 


フォ ント の 訟 定 


色 の 請 定 


ツー ル ボ ックス の [Label] ボタ ン 為 ) を クリ ッ ク 
し 、 フ ォ ー ム 上 に ラベ ル を 配置 する 











フォ ント の 庶 定 





275 
第 / 日 1 時 限 目 いろ いろ な テク ニッ ク 








LE 


_ Private Sub Command1 C1ick( ) 
Dim GetName AS 8 ヒエ + ュ nd 





W ュ th CommonDia1og1 
-Fi1ter = "すべ て の ファ イル (*.*) | *.*" 
・ShowOpen 
GetName = .Ei1ename 

正 nd W ュ th 


| rabe11 .Caption = "選択 し た ファ イル 名 は " g eetName 
| mad Su わ 





ョ Fomt Command2- Click 





FT ject1 II 


| |Command2 <| Iclick <| 


_ Private Sub Commmand2 C1iocKk ( ) 
| With CommonDia1og1 
<FladSs = CQd1CFBoh 
・ ShOwWF'On ヒ 





FName <・ 下 On 上 Name 
FS1zG = .FOon ヒ ES ュ ze 
End W ュ Eh 
With TLiabe11 | 
.Caption = "この フォ ント は g rgName | 
・FOnES1ze = FS1ze | 
End W ュ th | 
na Sub 


証 FLam1 Command3-Click 


『 蘭 Prc = 1 し コー ト ) 












_ Private Sub Commmand3 C1icK ( ) 
CommonDia1og1 . ShowCo1or エ 
Labe1 1 .FoOreCo1or = CommmonDia1og1 .Co1or ェ 

End Sub 
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コモ ンダ イア ログ ボッ クス コン トロ ー ル は 、 ど の ダイ アロ グ ボ ックス を 使用 する 
の か で 、 呼 び 出 す メ ソ ッ ド が 違い ます 。 





』 






メソ ッ ド 表示 され る ダイ アロ グ ボ ックス 


[ファ イル を 開く ] ダイ アロ グ ボ ックス 
ファ イル 名 を 付け て 保存 ] ダイ アロ グ ボ ックス 
いい 





[ ト 
ShowHelp 。 Windows の ヘル プ エ ン ジン 


例え ば 、[ フ ァイル を 開く ] ダイ アロ グ ボ ックス は 、 次 の メソ ッ ド を 使用 し ます 。 


CommonDia1og1 . ShowOpen 


コモ ンダ イア ログ ボッ クス が 表示 され て 、 ユ ー ザ ー が 何 か を 選択 する と 、 選 択 内 
容 は 専用 の プロ パテ ィ に 格納 され ます 。 そ の プロ パテ ィ の 値 を 取得 し 、 プ ログ ラム 
の 処理 に 組み 合わ せ て いき ます 。 こ の プロ グラ ム で は 、[ フ ァイル を 開く ] [フォ ン 
ト の 指定 ] [ 色 の 設定 ] と いう 3 つの ダイ アロ グ ボ ックス を 使っ て み ま す 。 





ノ 


信 ) まず 、[ フ ァイル を 開く ] ダイ アロ グ ボ ックス を 使い ます 。 ダ イア ログ ボッ クス で 
ファ イル を 選択 する と 、 そ の ファ イル 名 が ラベ ルコ ント ロー ル に 出力 され ます 。 こ 
の 一 連 の 処理 は すべ て 、[ フ ァイル を 開く ] ボタ ン の Click イベ ント プロ シー ジャ に 
作成 し ます 。 
プロ シー ジャ の 先頭 で 、 文 字 列 型 変数 [GetName」 を 用 意 し ます 。 こ の 変数 に 、 
[ファ イル を 開く ] ダイ アロ グ ボ ックス で 選択 され た ファ イル 名 を 格納 し ます 。 


Pr ュ で at Sub Commmand1 C1iok( ) 
Dim GetName AS 8 モエ ュ ng 


コモ ンダ イア ログ ボッ クス の 処理 ([ フ ァイル を 開く ] の 場合 ) 


SS 1 
③ ラ ベル コン トロ ー ル に ファ イル 名 表示 | ! ダ イア ログ ボッ クス が 閉じ る 


第 / 日 1 時 限 目 いろ いろ な テク ニッ め 








和 





GO 





と アロ グ ボ ックス を 雪 示 すず る 果 た: ei プロ パチ ィ で デイ アロ グ ポテ を 
に 表示 する ファ イル の 種類 を 設定 し て お きま す 。 


With CommmonDia1og1 
Ti1ter = "すべ て の ファ イル (*.*) | *。*" 


[Filter] プロ パテ ィ の 値 に は 、 実 際 の フィ ル タ 記 号 と その 説明 文 を 設定 で きま す 。 
上 記 の 例 で は 、| | 」 の 前 まで が 説明 文 で 、 後 ろ が 実際 に 表示 させ る ファ イル タイ プ 
の 記号 に な り ま す 。 ダ イア ログ ボッ クス の 初期 化 設定 が 終了 し た ら 、「ShowOpen」 
メソッド で [ファ イル を 開く ] ダイ アロ グ ボ ックス を 表示 し ます 。 


ShowOpen 


な お 、 こ こ で は 、 こ の あと いく つか の プロ パテ ィ に アク セス する の で 、 With ステ 
ー ト メン ト を 使っ て オプ ジェ クト 名 の 記述 を 簡素 に し て いま す 。 


ダイ アロ グ ボ ックス が 表示 され 、 ユ ー ザ ー に よっ て ファ イル が 選択 され る と 、 
[flename] プロ パテ ィ に その ファ イル 名 が フル パス で 格納 きれ ます 。 そ こ で 、 こ の 
値 を 参照 し て プロ グラ ム の 処理 に 利用 し ます 。 こ こ で は 、[filename] プロ パテ ィ の 
値 を 変数 GetName に 格納 し 、 ラ ベル コン トロ ー ル の [Caption] プロ パテ ィ に その 
変数 と 文字 列 を 設定 し て ファ イル 名 を 表示 し ます 。 


GetName = .Fi1ename 
End W ュ th 
Labe11 .Caption = "選択 し た ファ イル 名 は " g cetName 


[ファ イル を 開く ] 
ダイ アロ グ ボ ックス 


. 曲 Cvpack.exe に 放 | SlotGame oca 
る ] Dataview 負 Vb6_.exe 

時 Linkexe | vb6 olb 

きき Mscreate_dir | lm を ] Vb6dsbug dll 
$] Msdis110dll = jp chi | Vb6extolb 





[フォ ント の 設定 ] ボタ ン で は 、「 フ ォ ン ト の 指定 |] ダイ アロ グ ボ ックス を 使用 し 
ます 。 メ ソ ッ ド は |ShowEont」 を 使用 し 、 ユ ー ザ ー に よっ て 選択 され た フォ ント 
情報 は 、 以 下 の プ ロ パ ティ に 格納 ミ れ ます 。 








LeSSOnG5 コモ ンダ イア ログ ボッ ク 














取り 消し 


"/ [フワ ォ ント の 指定 ] ダイ アロ グ ボ ックス を 使う 場合 は 、ShowFont メ ソ ッ ド を 実生 
する 前 に 、[Flags| プロ パテ ィ に ダイ アロ グ ボ ックス に 表示 する フォ ント の 種類 を 
セッ ト し ます 。 こ の プロ パテ ィ を 設定 せ ず に ShowEFont メ ソ ッ ド を 実行 する と 、「[「 フ 
ォ ン ト が イン スト ー ル され て いま せん 」 と いう メッ セー ジ が で て 、 ダ イア ログ ボッ 
クス が 表示 され ませ ん 。 プロパ ティ の 値 に は 、 次 の いずれ か の 定数 を 指定 し ます 。 
[フォ ント の 指定 ] ボタ ン の プロ シー ジャ で は 、[Flags] プロ パテ ィ に 
| cdICFBoth」 を 設定 し 、ShowFont メ ソ ッ ド を 実行 し ます 。 


定数 説明 


リン タフ ォ ン ト お よび スク リー ン フ ォ ン ト の 一 覧 を 表示 





プロ パテ ィ 内 容 
ノ 







し ます 。 


ピ 
プリ ンタ が サポ ー ト する フォ ント だ け を 表示 し ます 。 


cdICFScreenFonts シス テム で サポ ボ ポート され て いる スク リー ン フォ ント だ け を 
表示 し ます 。 


% そし て 、 ユ ー ザ ー が 選択 し た フォ ント 名 と サイ ズ を 、[FontName] と [FontSize] 
プロ パテ ィ か ら 取 得 し ます 。 





W ュ th CommmonDia1og1 
<FladSs = Cd1CFBoO モ ュ h 


・ ShOwFOn ヒ 

FName = .FonEName 

FS1zG = .FOon モ 8 ュ 1ze 
正 nd_ W ュ th 


With ステ ー ト メン ト 
With に 続い て 指定 し た オプ ジェ クト 名 を 、 以 降 の コー ド で は 省略 し て 式 を 書く こと が で きま す 。 
1 つの オブ ジェ クト に 対し て 複数 の プロ パテ ィ や メソ ッ ド を 連続 し て 実行 する 場合 に 使用 する と 便 


利 で す 。 必 ず With-.End With で 記述 し ます 。 下 の 左 の コー ド は 右 の よう に 書い た 場合 と 同様 で す 。 
With CommonDia1og1 
-F1aqs = Cd1CFBo モ th CommonDia1od1 .F1lags = cd1CFBoth 
・ShowF'On モ CommonDia1od1 . ShOwFOn モ 
Endd W ュ th 





第 7 日 1 時 限 目 いろ いろ な テク ニッ 2 





取得 し た フォ ント 名 (Fname) は 、 ラ ベル コン トロ ー ル の [Caption] プロ パテ 
ィ に 代入 し 、 フ ォ ン ト サ イ ズ (Fsize) で ラベ ルコ ント ロー ル の 文字 サイ ズ の 設定 に 
使用 し て いま す 。 


With Labe11 
-Caption = "この フォ ント は " g rName 
<-FOn ロ 8 エン G = FS ュ ze 

End_ W ュ th 





[ 色 の 設定 ] ボタ ン で は 、ShowColor メ ソ ッ ド を 使っ て [ 色 の 設定 ] ダイ アロ グ ボ 
ックス を 表示 し ます 。 

ユー ザー が 選択 し た 色 は 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル の [Color] プ 
ロ パ ティ に 格納 ミ れ ます の で 、 こ れ を ラベ ルコ ント ロー ル の [ForeColor]| プロ パ 
ティ に 代入 し 、 ラ ベル コン トロ ー ル の 文字 色 を 設定 し ます 。 


10 





ビビ ビビ ビビ ビビ ー | 
還 司 違 時 還 記 記 eau s ap 玉 一 


5 26 の っ PT FE の 3 





P エ ュ ゞ a モ @e Sub Command3 C11ick ( ) 
CommonDia1og1 . ShowCo1or エ 
Labe11 .ForeCo1or = CommonDia1og1 .Co1o エ 
End Sub 
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コモ ンダ イア ログ ボッ クス は 、 あ ら か じ め Windows で 用 意 さ ご され て いる ダイ アロ グ 
ボッ クス な の で 、 自 分 で ユー ザー イン ター フェ イス を 組み 立て る 必要 が な く 、 使 い 亡 
も 簡単 で す 。 目的 に 合っ た メソ ッ ド と プロ パテ ィ を 使う の が ボイン ト で す 。 


る c》 練習 問題 


上 Lesson2 ら 2 で 作成 し た よう な 、 テ キス ト フ ァイル を 読み 込ん で 、 テ キ 
スト ボッ クス コン トロ ー ル に 表示 する プロ グラ ム を 、 コ モン ダイ アロ グ 
ボッ クス コン トロ ー ル を 使用 し て 作成 し て くだ さい 


(mn qxp 一 全 テ キス | 
ゴリ エン テー ショ ン 
isual Basic 友 使っ て windows 95 の ゴロ グラ ム を 作成 する に は 、Visusl Basic 


| Temporary Internat Files 屋 ]IE4 Error Log も < 
還 ]IE4 Setup Loe.Txt 


Ear Let + Loeu 間 く ⑯) | 
アル の 答 寺 や POR *) ゴ ft | 
[ 「 読み 取り 専用 2 上 と し て 開く (Ey 


解答 は 巻末 に 一 





埋 参 ワン ポイ ント アド バイ ス 


コモ ンダ イア ログ ボッ クス は 、 あ くま で も Windows 共通 の ユー ザー イン ター フェ イ 
ス を 提供 する コン トロ ー ル で 、 ユ ー ザ ー の 選択 内 容 を プロ バ パテ ィ か ら 受 け 取 っ た 後 の 処 
理 は 、 自 分 で 組み 立て な けれ ば な り ま せん 。 例え ば [フォ ント の 指定 ] ダイ アロ グ ボ ッ 
クス で フォ ント を 指定 し て も 、 そ の 結果 を どの コン トロ ー ル に 反映 させ る の か を 記述 し 
な けれ ば 、 何 も 起こ ら な い の で 注意 し まし ょ う 。 


第 / 日 1 時 限 目 いろ いろ な テク ニッ 





則 山 自 軸 則 
HEHH 四 HH 
HHH | HH 


マル チ メ テ ィ ア を 使う 


マル チ メ デ ティア コン トロ ー ル の プロ パテ ィ や メソ ッ ド の 使い 方 を 覚え ま 
す 。 





リア スス マ /7 // 


借 今回 作成 する プロ グラ ム 


前 の トラ ッ ク (Prev) 
次 の トラ ッ ク (Next) 
再生 (Play) 
一 時 停止 (Pause) 


=」 ロ < 

















ポ ボタン を クリ ッ ク す る 
0 トイ アッ 
を 再生 、 一 時 停止 、 停 
止 で きる 






停止 (Stop) 
早送り (Step) 
酸 さ 戻し (Back) 


= や ココ Lesson27 


マル チ メ デ ィ ア コン トロ ー ル を 使っ て 、 サ ウン ド フ ァイル や ビデ 
オ 、MIDI ファ イル の 再生 を 行う こと が で きま す 。 

制御 で きる メデ ィ ア は 以下 の 通り で す 。 

オー ディオ ボー ド 

@ MIDI シー ケン サザ 


と 上 穫 中 上 ゴロ 


価 CD-HRUM ドラ イブ 

る オー ディ オ CD プレ ー ヤ ー 

@ ビ デオ ディ スク プレ ー ヤ ー 

き @ ビ デオ テー プレ コー ダー 

き ビ デオ テー ププ レー ヤー 

ここ で は 、 サ ワウ ンド ファ イル を 例題 に し て 、 マ ル チ メ ディ アコ ン 
トロ ー ル の 使い 方 を 紹介 し ます 。 











LeSSOn ら の 7 マル チ メ デ ィ ア を 使う 


ョ ント 目 一 ル と プ ロロ パパ 子 ィ の 生 だ 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


ツー ル ボ ックス を マウ ス の 右 ボ タン で クリ ッ ク し 、 
メニ ュー か が から [コン ポー ネン ト 」] を 選 点 





ノー ネン トド 


コシ ポー ネト と は 、 プ 
ログ ラム の コー ド を 使っ 
て 、 プ ログ ラマ ー が 一 貫 
し た 方 法 で 利用 で きる プ 
ログ ラム 用 | 部 品 ] の 総 


こと な を ンジ リッ プク 称 で す 。 









の 追加 (). コモ ンダ オア ログ コン ト 

mmm ココ ロー ル や マル チ メ デ ィ ア 

| ッ マー ド 計 ツ が 可 能 (KO コン トロ ー ル は 「 コ ント 

| 非 表 示 (H) ロー ル 」| と いう 、 外 部 フ 
| ] 


ァイル と し て 用 意 き れい 
る コン ポー ネン ト の 1 つの 
種類 で す 。 
ちな み に コ モン ダイ アロ 
ae い c e e グ コ ント ロー ル の ファ イ 
[コン トロ ー ル ] タブ で [Microsoft Multimedia | ル を は FCOMDLG320C 
Control 6.0] を チェ ッ ク す る X| で 通常 は 「Windows 
\System| フォ ル ダ に イ 


ンス トー ル さ れ て いま す 。 
ヤ ト n- ル | デザ イナ | 搬入 可能 な わ や > 外 ] 










| | Microsoft Grid Control 
















irosoft Hierarchical FlexGrid Control 6 ロ (OLEDB) ーー て 
ease コ ゴゴ = マル チ メ デ ィ ア 
ICOrOS の ernet Control= 
_」 Microsoft Internet Transfer Control GU mm 引 に Ss 2 と に ト [一 し 
PrNMAPLSmrmwirG6 ーー 1 に が ナツ 
6 iCrosoft Masked Edit Control 60 回 に ] マ ル ナチ メ デ イ 9 コ 5 ト 
Microsoft MultilMedia DTCs 3 「 ロ ンー ィ ル は ヽ Visual Basic の ) 
Miorosoft Outlines Control 1 ミル ーー で > ミ 
|Microsoft PictureClip Control 60 初 期 ロス 自 も は ノ ル ホ 


Microsoft RemoteData Control 60U 1 まま 9L_ ] 4 ク ス ( こ 組 み 込 キ ま れ ミ し * 
| | ませ ん 。 使用 する 際 に 、 
クール フ パ レッ ト に コン ト 


ロー ル を 組み 込む 必要 が 
C ミ し の プリ リリ ンプ あり ます 。 
また 、 こ の コン トロ ー ル 
い w ヽ 1 i] こ は 含 
[MMControl] ボタ ン が 追加 され | 生ま を ん 。 
Professional Edition 以上 
が 必要 で す 。 











追加 ご れ た 
[MMControll ボタ ン 


MMMControl 


ろう 8 る 
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2 レナス ディ アナ ココ 
トロ ー ル の 配置 


配 軒 す る と メデ ィ ア を 操 
作 す る た め の 操 作 パ ネル 
が 表示 され ます 。 


これ ら の 操作 ボタ ン は 、 
プロ パテ ィ を 使っ て 1 つ ず 
つ 表 示 ・ 非 表示 や 有効 ・ 
無効 の 設定 が 行え を る の で 、 
最初 に プロ パテ ィ ウ ィ ン 
ドウ で 不要 な ボタ ン を 非 
表示 に し て お きま す 。 


不要 な ボタ ン の 
ぐ ヲ 削除 


この プロ グラ ム で は 、 サ 
ウン ド フ ァイル (Wav フ 
ァイル ) を 再生 する の で 、 
イジ ェクト ボタ ン と 録音 
ボタ ン を 無効 に し ます 。 


に コン トロ ー ル を 
を 選択 


この 操作 を 行う 前 に 、 作 
成 し た マル チ メ デ ィ ア コ 
ント ロー ル が 選択 され て 
いる こと を 確認 し て くだ 
さい 。 












同 還 じ Control1 怖 選 ご こ 生 jn 


全体 | 項目 | 










1 - wbManua 
EjesctEnahlsd Fa ほ = 
Ejectyisible 開 
Enablsd 


Fils lame 






Frame= ま 


















PlayEnablsd F 引 == 4 
Playy is 叩 le に 
PreyEnablsd 「 
Preeyisble 
RecordEnablsc 
RscordkMods 1 - mciRecordOwyerwwt 
1 =] ア ] 
Shareahie ] 


/ 探 作 バネ ル の ボタ ン が 変更 され る 






ツー ル ボ ックス で [MMControl] を クリ ッ ク し 、 
フォ ー ム 上 に マル チ メ デ ィ ア ボタ ン を 配置 する 


に リラ リック 
ぞ その まま ここ まで 
ドラ ッ グ 


プロ バテ ィ ウ ィ ン ド ウ で [EjectVisible] プロ パテ ィ 
の 値 を 「False」 に 設定 する 


m 導 | ここ を クリ ッ ク 
の 用 | ここ を クリ ッ ク 
葉 久 | ここ を クリ ッ ク 


プロ バテ ィ ウ ィ ン ド ウ で [RecordVisible プロ パテ 
ィ の 値 を 「False」 に 設定 する 


IMMControl1 MMCantral | 
全体 | 項目 史 | 


m 較 | ここ を クリ ッ ク 
の 用 | ここ を クリ ッ ク 
工 久 | ここ を クリ ッ ク 





LeSSOn ら 7 マル チ メ デ ィ ア を 使 








引 F0rm1:F0rm-Load 





| Project1 - Form1 (コー ド ) 





 P ェ ivate Sub Form Load ( ) 

| MMCon モ ェ o1 1 . De で ュ CeType = "WareAudio" 
MMCon モ ヒエ o1 1 .E ュ 1ename = ApDp.Path & 『 科 muS1C.wa で マ " 
MMCOoOn モ ヒエ o1 1 . NO ヒュ エマ = Fa1se 

MMCoOn ヒ エ o1 1 . Wa エ ユ 上 = PT エ uG 

MMCOn ヒ エ o11 .Shareab1e = Fa1se 


| MMConE ェ o11 .Command = "Open" 
End Sub 


旧 Form1:Form-Unload 


| \ Project1 - Form1 〔 コ ー ト ) 










 P エ ュ ゞ で a モ 上 Sub Form Un1oad(Cance1 As Tnteger) 
MMCOn モ ヒエ o11 .Command = "Cl1ose" 
End Sub 





マル チ メ デ ィ ア コン トロ ー ル は 、 い ろ い ろ な タイ プ の メデ ィ ア を 操作 で きる コン 
トロ ー ル で す 。 そ の た め に 、 ど の タイ プ の メデ ィ ア を 使う の か 、 メ ディ ア の ファ イ 
ル 名 と と も に あら か じ め 設 定 する 必要 が あり ます 。 

メデ ィ ア の タイ プ は 、 コ ント ロー ル の [DeviceType] プロ パテ ィ に 、 専 用 の 名 前 
を 文字 列 で セッ ト し ます 。 





』 


ぐ 代 表 的 な メデ ィ ア と 【DeviceType] プロ パテ ィ 値 (一 部 ) > 
プロ バテ ィ の 値 メデ ティ アタ イプ 


AVIVideo ビデ オフ ァイル (*.avi) 
CDAudio オー ディオ CD (F.cda) 


SequenCer MIDI ファ イル (*.mid) 


WaveAudio サウ ンド ファ イル (*.waV) 






第 / 日 ら 時 限 目 いろ いろ な テク ニッ の 





プロ パテ ィ の 設定 は 、 プ ログ ラム デザ イン 時 に プロ パテ ィ ウ ィ イン ドウ で 和え ます 
が 、 コ ー ド か ら 設 定 す る 場合 は フォ ー ム の Load イベ ント プロ シー ジャ で 行い ます 。 


MMCoOn ヒ ェ エ o11 .De1ceType = "WareAudio" 


メデ ィ イア の タイ プ を 設定 し た ら 、 使 用 する ファ イル を [FileNamel プロ パテ ィ に 
設定 し ます 。 こ こ で は 、 プ ロジ ェクト と 同じ フォ ル ダ 内 に ある 「music.wav」 を 指 
定 し ます 。 再生 ファ イル は 、 プ ロ パ ティ ウィ ンド ウ で 指定 する こと も で きま す 。 


MIMCOn ヒ Eo11 .E ュ 1ename = App.Path & "『 半 muSsio。.wa で " 


ファ イル 名 を 設定 し た ら 、 フ ァイル を 開く 処理 を 行い ます 。 こ れ は 、[Command] 
プロ パテ ィ に 「Open」 と いう コマ ンド 名 を 設定 する こと で 行わ れ ま す 。 

この Open コマ ンド は 、 事 前 に いく つか の プロ パテ ィ を 設定 する よう に 指定 され 
て いま す 。 それら が 、[Notify」、[Wait」] 、[Shareble] プロ パテ ィ で 、 値 の 指定 方 法 
も 決め られ て いま す (それ ぞ れ の 意味 に つい て は 、 こ こ で は 特に 説明 し ませ ん の で 、 
Visual Basic の オン ライ ン ヘ ルプ を 参照 し て くだ さい )。 

指定 され て いる プロ パテ ィ に 値 を セッ ト し た ら 、[Command] プロ パテ ィ に 
IOpen」 を 設定 し ます 。 こ れ で 、 マ ル チ メ ディ アコ ント ロー ル の 操作 ボタ ン で 、 サ 
ウン ド フ ァイル を 再生 で きま す 。 


MMCoOn セ ヒエ o1 1 . NO ヒュ = Fa1se 
MMCOn ヒ と エ o1 1 . Wa ユエ = エエ uG 
MMCon モ ヒエ o11 .Shareab1e = Fa1se 


MMCOn モ ヒエ o11 .Command = "Open" 


一 度 フ ァイル を 開い た の で 、 プ ログ ラム 終了 時 に 必ず 使用 し た デバ イス を 閉じ る 
処理 が 必要 で す 。 こ の 処理 は 、 プ ログ ラム 終了 時 に 実行 きせ る の で 、 フ ォ ー ム の 
| Unload]」 イベ ント プロ シー ジャ に 作成 し ます 。 

デバ イス を 閉じ る に は 、 マ ル チ メ ディ アコ ント ロー ル の [Command] プロ パテ 
ィ に 、「[Close」 コマ ンド を 設定 し ます 。 


Pr ュ 1 ゞ ate Sub Form Un1oad (Cance1 As Tnteger ) 
MMCOn モ ヒエ o11 .Command = "C1ose" 
End Su も 


これ で 、 マ ル チ メ ディ アコ ント ロー ル の 設定 が 完了 で す 。 プロ グラ ム を 実行 きせ 、 
[再生 ] ボタ ン を 押せ ば Wave フ ァイル が 再生 きれ ます 。 な お 、 続 け て 再生 する 場合 
は 、[ 前 の トラ ッ ク |] ボタ ン を 押し て か ら [再生 ] ボタ ン を 押し て くだ さい 。 








LeSSOn の 7 マル チ メ デ ィ ア を 使 


ぐ 代 表 的 な コマ ンド と 設定 プロ バ パティ ッ > 
コマ ンド 内容 


デバ イス を 開き ます 。 Notify (FalS@) 
Wait (Tru@) 
ShareaDle (FalS@) 
DeviCeTyDe 
FileName 


Close デバ イス を 閉じ ます 。 Notify (False) 
Wait (TruG) 


Play デバ イス を 再生 し ます 。 Notify (Tru@) 
Wait (FalS@) 
FrOm 
TO 

再生 また は 録音 や 録画 を 一 時 停止 し ます 。 Notify (False) 

Wait (Tru@) 

StoOD 再生 また は 録音 や 録画 を 停止 し ます 。 Notify (False) 
Wait (TruG) 

Eject メデ ィ ア 基 イジ ェ タ ト し ます 。 Notify (False) 
Wait (Tru@) 


音 を 鳴ら し ます 。 Notify (False) 


Wait (FalS6) 
FileName 
マル チ メ デ ィ ア コン トロ ー ル を 使用 する 場合 は 、 必 ず 使 用 する デバ イス タイ プ と フ 
ァイル の 種類 を 一 致 さ せ て くだ さい 。 
また 、 使 用 する ファ イル 名 は 、 フ ル バ パス で 記述 し ます 。 実行 する プロ ジェ クト と 同 
じじ フォルダ に 入れ て お く 場 合 は 、 説 明 し た App オブ ジェ クト の [Path] プロ パテ ィ 
な ご ど と 組み 合わ せ て お く と いい で し ょ う 。 





























る よう に し て 下さ い 。 MIDI ファ イル は 、「QSA] フォ ル ダ に ある 


O ひ 1 [Lesson27.vVDp] の プロ グラ ム を 改修 し て 、MIDI ファ イル を 再生 で 
さ 
| MdOO 1 .mid」 を 使い ます 。 





解答 は 巻末 に 一 





第 / 日 ら 時 限 目 いろ いろ な テク ニッ の 


第 ノ 日 
ら 時 限 目 


いろ いろ な 


Aa LeSSon28.Vhp 


と 上 生 | 中 目 コ 昌 





コー ド で サウ ンド ファ イル を 再生 する 


コー ド か が から サウ ンド ファ イル を 再生 する 方 法 を 覚え ます 。 





今回 作成 する プロ グラ ム 





we Ii 回 贅 | 


プロ ジェ クト を 実行 する 
と コン トロ ー ル が 消え る 


ボタ ン を 押す と サウ ンド フ 
ァイル が 回 再生 され る 


今度 は 、 サ ウン ド フ ァイル を 、 マ ル チ メ ディ アコ ント ロー ル の 操 
作 ボ タン を 使わ むず に 、 コ ー ド で 再生 する 方 法 を 紹介 し ます 。 プ ログ 
ラム の 中 で サウ ンド を 鳴ら し た い 場 合 な ど は 、 マ ル チ メ ディ アコ ン 
トロ ー ル の 操作 パネ ル を 非 表 示 に し て 、 機 能 だ け を 利用 する こと が 
で さき ます 。 そ の 場合 は 、 再 生 操作 な ど を すべ て コー ド で 行い ます 。 

この プロ グラ ム は 、 コ マン ド ボ タ ン を 押す と 、 サ ウン ド フ ァイル 
を 回 連続 で 再生 し ます 。 














LeSSOnG8B コー ド で サウ ンド ファ イル を 再生 する 






伯 コン トロ ー ル と プロ バ パティ の 吉 定 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 の NO6IS7 


ペア シオ アコ ント 


ロー ル は 、Visual Basic の 
よ 二胡 チ メス メディア T トロ ー ー ル を フォ ー ー ム に 配置 する 初期 設定 で は 、 ツ ー ル ボ 
ックス に 組み 込ま れ て い 
ませ ん 。 使用 する 際 に 、 
ンー ニル パレ ッ ト に シンド 
ー ル を 組み 込む 必要 が 
あり ます 。 





[ シオ イチ コル 馬 笠 
Cu nn ー ル を 配置 する 方 法 に つ 
いて は 、Lesson27 を 参照 


プロ バテ ィ ウ ィ ン ド ウ で [Visible] プロ パテ ィ の 値 し て くだ さい 。 


を |False」 に 設定 する 
ここ を クリ ッ ク OTR 計 
IMM じ Control1 
5 5 この 操作 を 行う 前 に 、 作 
ここ を クリ ッ ク 成 し た マル チ メ デ ィ ア コ 


_ 全体 | 項目 Fl 
ント ロー ル が 選択 され て 


ー いる こと を 確認 し て くだ 
ここ を クリ ッ ク さい 。 


[Visible] プロ パテ ィ の セ 
を ダブ プル タリ ッ タ し で 、 
値 を 切り 替え る こと も で 
きま す 。 















MCnntral 





ーー リッツ 


その まま こと まで 
ドラ ッ グ 


プロ バ パティ ウィ ンド ウ で [Caption] プロ パテ ィ の 値 ここ 
を | 回 再生 ] に 変更 する を 選択 


この 操作 を 行う 前 に 、 作 
| cu ' mm U io 1 成 し た コマ ンド ボタ ンコ 
C d1 C dBut ント ロー ル が 選択 され て 
人 人 | 項目 | 


v い ゝ た 准 認 ご 
Command1 に ご 穫 ア ノル シン リック こ を 人 確認 し て く た 
1 - SD ' 
値 を 入力 


| | &H8nnnnnnF& 
系 / 日 時限 目 いろ いろ な テク ニッ ク 














ausesyalidation True 


っ 289 


(の 











_ Private Sub Form Load ( ) 
| MMCon モ ヒエ o1 1 . De で ミュ CeTypDeG = "Wa で eAudio" 
MMCon ヒ ェ o1 1 .Ei1ename = App.Path & 『 学 muS81C.Wauy" | 


MMCon ヒ と o1 1 .NO モ ヒュ エエ = Fa1sSe 
MMCon ヒ と エ o1 1 。. Wa ユエ 七 = エエ u@G 
MMCon モ ヒエ o11 .Shareab1e = Fa1Lse 


| MMCon モ ェ o11 .Command = "Open" 
mna Sub 


io ーー ニー ツー ツーーーーーー ペ ーー 一 


| 


軒 Formt: Command1- Click_ 






隊 Projecti - Form1 (コー ト ) 


|ICemmandi す -- おこ <| 1 


_ Private Sub Commmand1 C11CK( ) 
D1m 1 AS エロ n ロ ヒ GdG エ 








OoOY 1 = 1 "Po 3 
MMCon ヒ ェ o11 .Command = "Sound" 
Nex 巧 


ーー 


ョ Form Form- Unload 
cu に 1【!= EEG 届 | ' ' | “ -T ロ Tsl 


ーー 






_ Private Sub Form Un1oad (CamnCeG1 AS エ n ヒ GdJGr ) 
| MMCon モ ェ o1 1 .Command = "Cl1ose" 
EnQd Sub 


才 参 ワン ポイ に チチ ドモ バル イス 





実際 に プロ グラ ム を 作成 する 場合 は 、 プ ログ ラム の 終了 処理 を 記述 する プロ シー ジャ 
の 中 で 、End ステ ー ト メン ト の 前 に 必ず フォ ー ム に 対し Unload ステ ー ト メン ト を 実 
行 し て くだ さい 。 そ うし な いと 、 フ ォ ー ム の Unload イベ ント プロ シー ジャ が 実行 され 
ませ ん 。「 フ ォ ー ム の 有効 期間 ]」 に つい て は P.1 72 の コラ ム を 参照 し て くだ さい 。 








LeSSOn68 コー ド で サウ ンド ファ イル を 再生 す 











』 


マル チ ナチ メディ イア コン トロ ー ル は 、[Visible] プロ パテ ィ を False に 設定 し た の で 、 

プロ グラ ム 実 行 時 は フォ ー ム に 表示 され ませ ん 。 し た が っ て 操作 ボタ ン が 使え な い 
の で 、 ユ ー ザ ー は 一 切 操作 で き な く な り ま す 。 メ ディ ア の 操作 を コー ド で 行う 場合 
は 、 こ の よう に コン トロ ー ル を 非 表 示 に し て お く と いい で し ょ う 。 


クア フォ ー ム の Load イベ ント プロ シー ジャ で 、 マ ル チ メ ディ アコ ント ロー ル の 初期 化 
を し て お きま す 。 これ は 、Lesson27 の プロ グラ ム と いっ し ょ で す 。 


次 に 、 コ マン ド ボ タ ン の Click イ ベン ト プ ロ シー ジャ に 、 サ ウン ド 再 生 の 処理 を 
作成 し ます 。 

サウ ンド ファ イル の 再生 は 、[Command] プロ パテ ィ に 「Sound]」 コマ ンド を 設 
定 し ます (Lesson27 参照 ) 。 こ れ を 、For..Next ル ー プ で 3 回 実行 する よう に し ます 。 





D1m 1 AS エ nEeger 


oO 1 = 1 mo 3 
MMCOn ヒ ヒエ o11 .Command = "Sound" 
Ne 





最後 に 、 フ ォ ー ム の Unload イベ ント プロ シー ジャ に 、 デ バイ ス を 閉じ る 処理 を 記 
述 し て 完成 で す 。 プ ログ ラム を 実行 し て コマ ンド ボタ ン を 押す と 、 サ ウン ド フ ァ イ 
ル が 3 回 再生 きれ ます 。 


コー ド で メデ ィ ア を 操作 する 場合 は 、[Command] プロ パテ ィ に コマ ンド を セッ 
ト し て 実行 し ます 。 

な お 、|「Sound]」 コマ ンド は 、WAV 形式 の サウ ンド ファ イル の 再生 に 使う コマ ンド 
で 、MIDI ファ イル な ど で は 「Play」 コマ ンド を 使用 し ます 。 


@c》 練習 問題 


上 この プロ グラ ム を 改修 し て 、 コ マン ド ボ タ ン が 押さ れる と コモ ンダ イ 
アロ グ ボ ックス の [ファ イル を 開く ] ダイ アロ グ ボ ックス が 開き 、 選 択 
し た ファ イル を 3 回 再生 で きる よう に し て くだ さい 。 


解答 は 巻末 に 一 





第 / 日 時限 目 いろ いろ な テク ニッ の 





Lesson29.Vhp 
9 VB6CD 
ョ ーー コ Lesson29 





っ 9 ス 2 





テー タコ ント ロー ル 


テー タコ ント ロー ル の 初歩 的 な 使い 方 を 覚え ます 。 ま た 、 連 結 コ ント ロ 
ー ル を 操作 し て デー タ を 表示 する 方 法 を 知り ます 。 


ラ 回 作成 する プロ グラ ム 





前 後 の ボ タン を クリ ッ ク 


する と … 
_ 販売 実 緒 衣 昌 HE 
販売 月 数 5 
人 月 ご と の デー タ を 合計 し た 
口紅 7 婦人 蛋 が 表示 され る 


636 2 寺 和 あー 


ー ー R ーー ーーーーーー…- 


使用 する デー タベース 


キャ ヤヤ ャ キャ $$ ョ $$ ファ イル | 本 社 合計 1.mdD]」 
pkgd/ 7 


デー タコ ント ロー ル を 使用 する と 、Access な どの デー タベース 
ファ イル の デー タ を 、 プ ログ ラム で 使用 で きる よう に な り ま す 。 
また 、 ラ ベル コン トロ ー ル な ど は 、 デ ー タ コン トロ ー ル と 連動 で 
さる 「 連 結 」 コン トロ ー ル に な っ て いる た め 、 プ ロ パ ティ を 設定 す 
る だ け で 簡単 に レコ ー ド へ の アク セス が で きま す 。 

ここ で は 、Access で 作成 し た デー タベース ファ イル | 本社 台 詩 
1 .mdb」 を 使っ て 、 レ コー ド デ ー タ を 読み 出す プロ グラ ム を 作成 し 
ます 。「 本 社 合計 1.mdb] は 、「Lesson29」 フォ ル ダ に 入っ て いま 
。 


LeSSOn つ 9 デー タコ ント ロー ル 





作 ユン トロ グール と ジロ バチ ィ の 前 





ププ 半生 コン トロ ー ル 
※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 デコ タラ ュ ン トロ ー ル で 


ー タ ベー ス フ ァ イル を 指 

、 だ まま おとこ 、 ラ バル ラッ キャ 
ノー ル ホ ックス の [Data] ボタ ン 罰 」 を クリ ッ ク > も 
ーー 一" へ = * ーー 

し 、 フ ォ ー ム 上 に デー タコ ント ロー ル を 配置 する 2 kFS At が 9 
ー ル ド に 自動 的 に アク セ 

に を ナッ の ス 可 能 に な り ま す 。 こ う 
に / と > いっ た 連動 し て 動作 する 
コン トロ ー ル を | 連結 コ 

ント ロー ル 」| と 呼ん で い 


て の まま ここ まで ます 。 





敵 1 


ドラ ッ ク ラベ ル 以 外 に も 、 チ ェ ッ 
が 2 ゲス オメ ー タ ジ 、 





[ テキ スト ボッ クス な ど が 
| 連結 コン トロ ー ル に な り 
| ます 。 詳し く は オン ライ 
| ン ヘ ルプ を 参照 し て くだ 





| さい 。 
コテ EE 昌 デー タ (Data) 
コン トロ ー ル 
プロ バテ ィ ウ ィ ン ド ウ で [DatabaseName] プロ | Access を どの テー タ ベ ー 
パテ ィ に デー タベース ファ イル を 設定 する か で 
す 。 


5 軸 所 


iR | 連結 コン トロ ー ル を 使っ 


全体 | 項目 史 | 叶 | た り 、 レ コー ド の デー タ 


圭 示 こり 操作 で き 


Et に た |= に トー] に] Fi ww アン ES こ を ク | リック の 
DefautCursorType ロ - 尋 定 ] 直 の カー ツル DataDaseName 


DefauHt Type ーー Jat 


| 3 cssonz9 < 訣 ほ | 








デー タコ ント ロー ル の デ 
ー タ ソー ス の 名 前 と 場所 
を 設定 する プロ パテ ィ で 
攻 








、 ファ イル の 場所 ①: 








(ニク リッ ン 


上 60 上 目 は ま は SihwoBbs' 上 〔 上 t0 hb ト ぽ 5 0 005†6 プ ' 2 還 | ここ を クリ ッ ク 
| ファ イル の 種類 CD。 | テー ペース Ge mdb) <| キャ ソ セ ヤル | 
2 も | 





293 
第 / 日 3 時 限 目 いろ いろ な テク ニッ ク 


六 RecCOrdset | yDe 


デー タコ ント ロー ル が 作 
成す る Recordset オ プ ジ ェ 
クト の 種類 で す 。 数 値 で 
設定 し ます 。 


ReCOrdSOUrC@ 


デー タコ ント ロー ル の 基 
に な る テー ブル 、SQL ス 
テー トメ ント な ど を 指定 
に し まま 。 こら で ぞ では} 本 特 
合計 1.mdb」 内 の テー プル 
| 本 社 集計 ]」 を 設定 し まし 
の 2 


2 の 9 全 


Rscord ご ourCe 


| 当 | ュ ロ 














[RecordsetType] プロ パテ ィ の 値 を 「0 - テー ブ 
ル 」 に 設定 する 


Ipasnpss 。 本 
全体 | 項目 別 | 







m 較 | ここ を クリ ッ ク 
用 | ここ を クリ ッ ク 
葉 久 | ここ を クリ ッ ク 





Rijght ToLsft 


[RecordSource] プロ パテ ィ で テー ブル 「 本 社 集計 」 
を 選 応 


Data1 品 ata だ | 較 | 









m 導 | ここ を クリ ッ ク 
の 用 | ここ を クリ ッ ク 


Qptians [| + | 
Readunl False 
RecnrdsggTyne リー テー フル 





RecardSnurcg と 時 〒 
RightToLeft EE | 久 | ここ を クリ ッ ク 
ュー 0 抽 


ツー ル ボ ックス で [Frame」 庄 が の リウ グ し 、 
フォ ー ム 上 に フレ ー ム コン トロ ー ル を 配置 する 


と ここ と ケン vw が 
し アッ 





LeSSOn つ 9 デー タコ ント ロー ル 


プロ パテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ の 値 
を | 販売 実績 |」 に 変更 する 


1 
|Frame1 Frame 本 | 


全体 | 項目 別 | 













ツー ル ボ ックス の [Label] 貞 を プリッ ウツ し 。 
オォ オー ム 上 に ラベ ルコ ント ロー ル を 4 つ 配 置 す る 


- 了 練 ーー ニーーーーー 一 、 | これ ぐら い の サ イズ の 
Labell 人 ラベ ル を 4 つ 作 る 






1 - 3D 
| | &H8HHHHUF& 
1 - 実線 
ge 売 実 結 


CpControl= True 












LabeI2 

Labe は 
ぎ モ 内 
mLabe は 電 
ES ー 


各 ラ ベル コン トロ ー ル の [Caption] と [Alignment] 
プロ バテ ィ の 値 を 次 の ひよ うに 変更 する 





コン トロ ー ル 名 [Caption] [AliEgnment] 


Label3 口紅 
Label4 ファ アンデ ー 








ーー ニー HH 
、 販売 月 数 
フケ テッズ ーション 


ぐ ラベ ル を 選択 
この 操作 を 行う 前 に 、 作 
成 し た ラベ ルコ ント ロー 
ル が 選択 さき れ て いる こと 
を 確認 し て くだ さい 。 


っ 9 
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と DataSourCe 


連結 する デー タコ ント ロ 
ー ル を 指定 する プロ パテ 
イィ で す 。 


〆 DataField 


デー タコ ント ロー ル が 参 
時 し て いる デー タベース 
9 チーズ チル か ら 。 カカ レン 
も レゴ コード の どの フォー 
ルド を 参照 する の か を 指 
定 し ます 。 


メー タニ コントロール が デ 
ー タ ベー ス フ ァ イル を 指 
定 し て いる と 、 そ の ファ 
イル が 使用 中 の 各 フ ィ ー 
ルド が 自動 的 に ポッ プア 
ッ プ メニ ュー に 表示 され 
ます 。 
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| DataFied 
| Dat ョ Format 
語 ee d ・| 








ツー ル ボ ックス の [Label] 偽 を クリ ッ ク し 、 ラ ベ 
ル の 隣 に ラベ ルコ ント ロー ル を 4 つ 配 置 する 






- 販売 実績 
、 販売 月 Labsi5 
香水 Label6 
口紅 Labsl? 
0 これ ぐら い の サ イズ の 
・ ラフ ラベル を 4 つ 作 る 





6《) 各 ラ ベル の [BorderStyle] プロ バ パティ の 値 を 
| 1 - 実 線 ] に 変更 する 


| っ ティ ー LabalB 


Label8 Labsl 


こけ ルッツ 
ここ を クリ ッ ク 


に 2 と っ ン リ ナツ グン 


F al=e 

| | &H8HUHHHHF& 
1 - 二天 HB 明 

1 - 実線 


各 ラ ベル の [DataSource] と [DataField] 
上 プロ パテ ィ の 値 を 次 よう に 変更 する 





コン トロ ー ル 名 
LaDel5 
LaDel6 


[DataSource] 


[DataField] 


LaDel/ 
LaDel8 








LeSSOn つ 9 デー タコ ント ロー ル 





邊 デー タコ ント ロー ル は 、[DatabaseName] プロ パテ ィ で 、 使 用 する デー タベース 
ファ イル を 指定 し ます 。 そ し て 、[RecordSource] プロ パテ ィ で 、 使 用 する テー ブ 
ル を 指定 し ます 。 
ラベ ルコ ント ロー ル は 、[DataSource] [DataField] プロ パテ ィ で デー タコ ント 
ロー ル を 指定 し た 時 点 で 、 そ の コン トロ ー ル と 連動 し て 動作 する 連結 コン トロ ー ル 
に な り ま す 。 


この プロ グラ ム で は 、 特 に コー ド は 作成 し ませ ん 。 デ ー タ コン トロール は 、 フ ォ ー 
ム に 配置 し て 連結 コン トロ ー ル こと 連動 ご せる だ け で 、 自 動 的 に テー ブル と フィ ー ル ド 
に アク セス で きま す 。 1 つの デー タコ フト ロー ル ど アク セス ズ で きる デー ブフ 胡 は 1 つ だ 
け で す 。 複 数 の テー ブル に 同時 に アク セス する に は 、 複 数 の デー タベース コン トロ ー 
ル を 配置 し て 使用 し ます 。 





る c》 練習 問題 





旧 「Lesson29.vbp] で は 、 あ ら か じ め プ ロ パ ティ ウィ ンド ウ で デー タ ベ 
ひ ー ス ファ イル を 指定 し まし た 。 し か し 、 プ ログ ラム を 他 の コン ピュ ー タ 

に 配布 する 場合 は 、 デ ィ レ クト リ 名 が 変わ っ て し まい ます 。 そ れ を 回 避 
する た め に 、 プ ログ ラム 起動 時 に プロ グラ ム と 同じ フォ ル ダ に ある デー 
タベース ファ イル を 使用 で きる よう に 変更 し て くだ さい 。 





解答 は 巻末 に 一 


第 / 日 3 時 限 目 いろ いろ な テク ニッ 2 





ーー タブ 付き ダイ アロ グ ボ ックス 
HH タブ 付き ダイ アロ グ ボ ックス の 使い 方 を 覚え ます 。 ま た 、 各 ペー ジ に 配 
sss 置 し た コン トロ ー ル の 操作 方 法 と 、 フ ォ ー ム か ら 呼 び 出し て 使う 方 法 も 
ル esso22 WAMESE 
@ 今回 作成 する ブ プログ ラム 





この ボタ ン を 
ツリ ッ ダ すず る こ … 


いろ いろ な 






タフ 付き ダイ アロ グ を 含 


2 


す お フォ ー ム が 表示 され る 


) LeSsOon30.vDp 





ョ バー ココ Lesson30 


の 卓上 コ 中 





タブ 付き ダイ アロ グ ボ ックス は 、Windows 95 か ら 採 用 され た 新 
し い 組 み 込 み ダ イア ログ ボッ クス で す 。 タ ブ を クリ ッ ク す る こと で 、 
表 志 する ペー ジ を 切り 替え て 使用 で きま す 。 各 ペー ジ に は コン トロ 
ー ル を いろ いろ な レイ アウ ト で 配置 で きま す 。 

ここ で は 、 こ の タフ 付き ダイ アロ グ ボ ックス コン トロ ー ル を 使用 
する 方 法 を 紹介 し ます 。 














LesSon30 タブ 付き ダイ アロ グ ボ ックス 


円 コン トロ ー ル と プロ パテ 





ィ の 設定 
※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


ツー ル ボ ックス の CommandButton」 還 較 を 
クリ ッ ク し 、Form 1 に コマ ンド ボタ ン を 配置 する 


ピー 





[標準 ] ツー ル バ ー の [フォー ム モ ジュ ー ル の 追加 」 
0 プリッツ し 。 


[フォ ー ム モジ ュー ル 」] を 選 応 


こら こ 和 を リッジ 
に こと こと を ン リッ ン 










法寺 まま wl 
大 = MDI フォ ー ム モジ ゲ ュー ル ⑪ 
N 医 「S な 終 機 準 キ モジュール (MD 
_ 9 り ウラ ス モジ ュー ル (C) 
前 六 - ザ ーー トロ -U) 
レ c! 7 ロティ By 


国 * 2 


1 Data Report 
に DHTIMML Pags 


は Data Enyjironment 
その 他 の ActiveX デザ イナ (G)、 ゅ 
回 侍 ア ル の 人 ey。 cvto 





[フォ ー ム モジ ュー ル 」 を 選択 し 、[ 開 く 」 を クリ ッ ク 
し て 、 新 し い フ ォ ー ム (Form ら ) を 追加 する 















m 間 | ここ を クリ ッ ク 





ーッ ョ ン 情 報 Web ブラ ウサ デイ アロ 





し 本 @ 
キャ ン セ ヤル | 
^ ル け で ① | 





用 | ここ を クリ ッ ク 


「 : 六 回 か ら こ の デイ f ロ ゲ ボッ カス を 表示 し な し U) 


次 回 か ら こ の ダイ 
アロ グ ボ ックス を 
表示 し な い 


[次 回 か ら こ の ダイ アロ グ 
ボッ クス を 表示 し な い 」 
チェ ッ ク ボ ポッ クス を クリ 
グセ も て チェ ッ ク し て お 
く と 、 次 回 か ら こ の ダイ 
アロ グ ボ ックス が 表示 さき 
れ な く な り ま す 。 
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ンー ルポ ツタ ケス 名 マス の 有 ポタ ン で みり リッ ク し 。 
メニ ュー が ら [コン ポー ネン ト ] を 選 京 





まま うま よ えま うま 
る うう うさ る す 】 
スス スミ メス スズ 】 






の 追加 ). 


ンド 5 キ 可 能 (KO 
非 表 示 (H) 


リリ [Je) 財 “ ここ を クリ ッ ク 





[コン トロ ー ル ] タブ で [Microsoft Tabbed 
Dialog Control 6.0] を チェ ッ ク す る 


.。 タ ブ 付 き ダイ アロ グ 
茜 ホッ クス コン ト 
ロー ル 


タプ 付き ダイ アロ グ ポ ボッ 

















クス コン トロ ー ル コン ト ヤル | | 失 入 可 能 な わ >5 外 | | 
ロー ル は 、 Visual Basic の ) | Microsoft RemoteData Control 60 避 に = mm | 
ミル = ンー M 江 ミー ゞ Microsoft Rich Textbox Control 60 る に | 
初 期 HX に で は の グ ル ホ ボ Microsoft Script Control 1 ロ 0 ー) Or 1 ーー 一 を チ N ク 
メグ ク ス に 料 み 込 ま れ 寺 い Microsoft Scriptiet Component mw も し て し きき ンプ 
ー rosoft Syslnfo Control 6 人 
ませ ん 。 使用 する 際 に 、 Tr た 名 
メー ルレ パパ レ 3 ト に 9 ト | Microsoft Wallet 笛 時 に ] 同 
を うお き の ミ -」 Microsoft Windows Common Controls 50 GSP2) 
ル を 組 みみ 込 む の 安 ヵ _ Microsoft WWindows Common Controls 60 
あ り ま す 。 Microsoft Windows Common Controls-2 50 GP2) 人 昭 (g 
Microsoft Windows Common Controls-2 60 | 加 し | 
| 選択 され た 項目 の み ⑤ | 
| 場所  CwWINNTWSystem32\TABCTL32OCX 「 
| 





ここ な プリ ワック 


誠 らら 「aD 


タプ ダイ オア ログ コン トロ 
ー ル の こと で す 。 


G く ツー ル ホ ボッ クス に [SSTab] ボタ ン が 追加 され る 


追加 ご れ た [SSTab] 
ボタ ン 









LesSSOn30 タブ 付き ダイ アロ グ ボ ックス 


ツー ル ボ ックス で [SSTab] ボタ ン を クリ ッ ク し 、 
Form2 上 に タブ 付き ダイ アロ グ を 配置 する 





9 各 タ ブ の Caption] プロ パテ ィ を 次 の よう に 変更 する 







コン トロ ー ル 名 Caption] 


人 
で * 









[CommandButton] _- を クリ ッ ク し 、[ ペ ー ジ 1] 
タブ に コマ ンド ボタ ン を 配置 する 
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の [ペー ジ ら ] タブ 
ヽ ン を 表示 
この 操作 を 行う 前 に 、 ツ 


ォ ー ム 上 で [ペー ジ 2] タ 
プア リッ クト と | 


メタ タプ を 雪 示 し て くだ 


さい 。 


2 

この 操作 を 行う 前 に 、 フ 
ォ ー ム 上 で | ページ 3] タ 
プ を クリ ッ ク し て 、[ ペ ー 


3 ト | タブ を 表示 し て くだ 


きい 。 













1O [CommandButton] 一 を クリ ッ ク し 、[ ペ ー 
ジ ら ] タブ に コマ ンド ボタ ン を 配置 する 


[Caption] プロ パテ ィ を 
[タブ を 左 に する 」 に 設定 


ョ ダブ 才 左 | に に する ト 








WW ツー ル ボ ックス の [Image] を クリ ッ ク し 、[ ペ 
ー ジ 3] タブ に イメ ー ジ コン トロール を 配置 する 


ここ を リック 


の て の まま ここ まで 


ActiveX コン トロ ー ル の 配布 


「 タ ブ 付 き ダ イア ログ ボッ クス コン トロ ー ル 」| な ど 、 標 準 コ ント ロー ル で 
な い コ ント ロー tr 
に 配布 する 場合 は 、 こ れ ら の コン トロ ー ル も いっ し ょ に 配布 する 必要 が あ 
D: ま いま 。 


どの コン トロ ー ル が どう いう ファ イル 名 に 
ン ヘ ルプ を 見 れ ば わか り ま す が 、Lesson36 で 解説 する 「 デ ィ ス トリ ビュ ー 
ン ョ ン ウ ィ ザ ー ド 」 を 使っ て 配布 キッ ト を 作成 すれ ば 、 間 違い な く イ ンス 
トー ル で きま す 。 


な っ て いる の か は 、 オ ン ラ イ 


LesSSOn30 タブ 付き ダイ アロ グ ボ ックス 


目 プロ バテ ィ ウ ィ ン ド ウ で [Picture] プロ バテ ィ 
に イメ ー ジ ファ イル を 設定 する 


、 全体 | 項目 | | 


MousePointesr 


LEDrag Mods 


こと を ノリック 
OLEDrop lods 
Picture ・ (こと な ンジ サン 





I コ ll 『 1 に が の | 較 天 
















Bi555 本 使用 する イメ ー ジ 
マ て | 3 還っ ベベ < グ デ 
ーーー ja 回 昌 ほ 画 ' ベ ダ ファ イル 
pstepJgi 
Winlogogif に ! バン ブーbmp 問 レッ ド タイ ル bmp ] < さ Z て 7 
Winupdico 時 ビ ンス トラ イブ bmp si 化 見 bms c こ て を クリ ッ ク C\W Imdows」 の フォ ル 
時 エ ジ ブ ト bmp 時 ブラ ッ ク フロ ア bmp 名 千島 格子 bmp ダ に ある | 化 見 .bmp」 を 
し ゃ | まん 玉 bmp 中 ブルー ウェ ー ブ bmp いい o 
結 セ ッ ト アッ プ bm 。 部 ブ ルー リベット bm 
8 完 bm 1 \ 
ファ イル 名 (ND |[ 衝 見 bmp 開い O) 4 も の の リン 
77 イル の 種類 tD | すべ て の ヒ ツ ウチ + ファ イル ォ キャッ ヤル | 





へ けけ) | | 


イメ ー ジ の サイ ズ 
』 挿入 し た イメ ー ジ の サイ ズ を 変更 する 要 更 
イメ ー ジ の 周囲 に 表示 さき 
PP ーー れ て いる サイ ズ 変 更 ハ ン 
ドル ( 黒 四角 ) を ドラ ッ 
ゲ が レ ま す 。 








う 0 う 
第 / 日 4 時 限 目 いろ いろ な テク ニッ ク 





く ダ 値 の 設定 


[Stretchl プロ パテ ィ の セ 
ル を ダブ プル クリック し で て 、 
値 を 切り 替え る こと も で 
きま す 。 


1 フジ ェ ト 名 ) 


| じじ ョ nce| 


[ ausesalidation Trus 
 』Desfault F ョ |== | 
DisshlsdPicfhrs  『 計 |) 4 | 


プロ バテ ィ ウ ィ ン ド ウ で [Stretch] プロ パテ ィ 
の 値 を |「True」 に 設定 する 





ま 5 


Eo | mg ェ | 


全体 | 項目 





目 | に こ を クリ ッ ク 
OLEDrag Mods ー | | 

IOLEDroplWeds ロ - な し 「 | ここ を クリ ッ ク 
Picture 上 ッ ト Y ゥ フ ) 
に (ea ン | 

[ Tag ua < さ う CC な 22 1 ッ ク 

ET 


| 
| 
Top nn | 









[CommandButton] 一 を クリ ッ ク し 、 
FOrm ど に コマ ンド ボタ ン を 配置 する 


2 ペー 












1 ここ を クリ ッ ク 
し で 
の を の まま ご こ 球 で 
に フック 


プロ バテ ィ ウ ィ ン ド ウ で Caption] プロ パテ ィ 
の 値 を | 閉じ る 」 に 設定 する 


1G 








ee “ 
』 じ ommand3 CommandBiutton <| 
全体 | 項目 別 | 








ここ を ダブ ルク リッ ク 
| 閉じ る 」 と 入力 






必 DD= ョ 「 ョ ロビ 
BackColor 







| &H8nHHnUnF& 
Fa ほ s 


じじ ョ = aa 閉じ る 
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ポ F0orm1:C0mmand1-Click 





EPSY 8 Fo il 了 衝 に 
| |Command1 ・| Ilick まま ・| | 
 P ェ ミュ マ ae Sub Command1 C1iock ( ) 
Form2 . Showy 
下 ndd Sub 





Form2:Command1-Click 。 





| 開 Project1 - Form2 (コー ト ) | 
Commanai <| [ciick <| 


エ ュ で a モ @ Sub Command1 C1iock ( ) 
MsgBox "ペー ジ ] の ボタ ン で す * 


_ End Sub 











| 開 Projsct1 - Form2 (コー ト ) | | 
Commandz <| [ciick >| 


_ Erivate Sub Command2 C1iok ( ) 
| = SSTabO ェ て ienta 上 ionT,eE モ 


SSTab1 . ab も O エ ュ ミュ ら en ヒヒ a ヒ 1onm = 
End Sub 





引 FO0rm2:C0mmand3-Click 


| |Commands 5 <| |click ・| | 


_ Private Sub Commmand3 C1ick( ) 
| Form2 .H ュ de 
S8〒abO 〇 エエ en ヒ a モ も onTOp 


| SSTab1 . TabO エ ュ ェ ら ena ヒ 1om = | 
End Sub | 















各 / 日 4 時 限 目 いろ いろ な テク ニッ に 











』 


タプ 付き ダイ アロ グ ボ ックス に 配置 し た コン トロ ー ル は 、 フ ォ ー ム に 尋 置 し た と 
き と 同 じ よ うに 扱い ます 。 つ まり 、 ど の ペー ジ で あっ て も 、 コ ント ロー ル の オプ ジ 
ェクト 名 で プロ パテ ィ や メソ ッ ド が 使え ます 。 

まず 、Form1l の コマ ンド ボタ ン の Click イ ベン ト プ ロ シー ジャ で 、TForm2 を 表示 
ます 。 


Form2 。Show 





Form2 に 配置 し た タブ 付き ダイ アロ グ ボ ックス の 、 ペ ー ジ 1 に ある コマ ンド ボタ 
ン で は 、 メ ッ セ ー ジ ボッ クス を 表示 し ます 。 


MsgBox "ペー ジ ] の ボタ ン で す * 





ペー ジ 2 の コマ ンド ボタ ン で は 、 タ プ 付 き ダ イア ログ ボッ クス の 形式 を 変更 し ま 
す 。 [TabOrientation] プロ パテ ィ は 、 タ プ ブ の 付く 方 向 を 設定 する プロ パテ ィ で す 。 
ここ で は 、 左 側 に タプ が 付く タイ プ に 論 更 し て いま す 。 同様 に 、 
「ssTabOrientationTop」、「ssTabOrientationButtom」、| ssTabOrientationRight」 
で 、 タ プ の 方 向 を 上 下 左右 に 設定 で きま す 。 


SSmTab1 . TabO ェ entat1onm = SSTabO エ enta ヒ 1onTLieF 


省 Form2 に 配置 し た コマ ンド ボタ ン は 、Form2 を 閉じ る た め に 使っ て いま す 。 


Form2 .H ュ de 
SSTab1 . TabO エ ミエ en モ a ヒ 1 も on = SS8TabO エ エ G ら na ヒュ OnTOp 


タブ 付き ダイ アロ グ ボ ックス は 、1 つの コン トロ ー ル に 何 ペ ー ジ も 設定 で きる の で 、 


フォ ー ム を いく つも 配置 する より も 、 プ ロジ ェクト の 管理 が し や すく な り ま す 。 
また 、 プ ログ ラム を 使う ユー ザー に と っ て も 、 操作 が わか りや すく な る メリ ッ ト が 
あり ます 。 
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る c》 練習 問題 


タブ は 上 に 取り 付く タイ プ で 、3 つ で 一 列 に な る よう に し ます 。 


① ひ タブ を 6 つ 持 っ た ダイ アロ グ ボ ックス を 作成 し て くだ さい >。 


解答 は 巻末 に 一 





者 馬 ワン ポイ ント アド バイ ス 


タブ 付き ダイ アロ グ ボ ックス で 使え る プロ パテ ィ を 紹介 し て お きま し ょ う 。 






プロ パテ ィ | 
タブ の 文字 属性 を 設定 し ます 。 
タブ の 高 さ を 設定 し ます 。 




























ニュ 】 


タフ 付き ダイ アロ グ ボ ックス の タイ プ 


タプ 付き ほ き ダ イア ログ ボ ックス は 、[TabOrientation] プロ パテ ィ で 、 タ プ ブ の 位置 を ダイ アロ グ 
ボッ クス の 上 トト 左右 の どこ に 付け る か を 設定 で きま す 。 ま た 、[Style] プロ パテ ィ で は 、 タ プ の 
形状 を 変更 で きま す 。 [Picture] プロ パテ ィ は 、 タ ブ プ に イメ ー ジ ファ イル を 設定 し ます 。 

プロ パテ ィ ウ ィ ン ド ウ に ある 「 プ ロ パ ティ ペー ジ 」| を 使う と 、 タ プ 付 き ダ イア ログ ボッ クス 
の 形状 を 一 括 し て 設定 で きま す 。 


| 全 野 | 色 | フト El “ “ 


| 現在 の 9⑥> の キ t2aYD 

旧 間 隊 較 | 表 上 や = っ oo 
| 旬 鞭 WW 配置 方 (KO 

お 0 - ssTabOriantation Top マ 
、 各行 の 9 敦 @⑥ 29fMS 

0 - ssStyleTabbedDialog ェ 
、 の 高き _ の 最大 幅 W の マ ⑦ メ ポイン ゆ 

| OLE ト nz モー ド ) ] 


0 - ssOLEDropNons マ 
| サド ラッ の の) 







- レ フォー が を 表示 F) レイ トット 認識 ⑤ 





第 / 日 4 時 限 目 いろ いろ な テク ニッ の 


WW 


HH HH 
中 王 | 


ル ん ら S$ ゞ の 22 


の と ) り と 7 た 


Ar) Lesson31.vhp 
⑯* 
ココ Lesson31 


う Learning Edition 





フォ ー ム テン プレ ー ト の 活用 


フォ ー ム テン プレ ー ト [見 出し 画面 ] の 利用 方 法 と 表示 方 法 を 覚え ます 。 


し し 


| di 








ラ 回 作成 する プロ グラ ム 





この ボタ ン を 
クリ ッ ジ クダ する と … 








ライ セッ ス 先 : Haruks Seto. 1998. 
VB Lab TEchnology 
Lesson31 





Windows98 対 応 
パー ショ ン 1.00 | 
著作 権 : 滑 戸 須 | 





警告 : この ブロ グラ ム を 無断 で 暫 売 複製 ・ 再 配布 する こと を 固く 芋 じ ま す 。 | 


Visual Basic 6.0 で は 、 プ ログ ラム 起動 時 の ロゴ や アバ ウト ダイ 
アロ グ ボ ックス な ど 、 い くつ か の フォ ー ム を テン プレ ー ト で 用 意 し 


て いま す 。 こ の テン プレ ー ト を 使う つこ 、 最 初 か ら フ ォ ー ム を 組み 立 
て る より も ずっ と 楽に 作成 で きま す 。 

ここ で は 、 フ ォ ー ム の テン プレ ー ト の 1 つ | 見 出し 画面 ] を 使っ 
て 、 フ ォ ー ム を 作成 する 方 法 を 結 介 し ます 。 
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まま 還 ル と 2 日 及 チ ディ の だ 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


目 ツー ル ボ ックス の [CommandButton] 1 を ンク 
リッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 





[Caption] プロ パテ ィ を 
| バー ジョ ン 情 報 」 に 設定 





選 記 


| . Projact1 - Microsoft Visual Basic 5 肥 防 


ここ を クリ ッ ク 






標 1 MDI フォーム モジ ュー ル ⑪ 


im 
_ ウフ ス キモ ジュール (C) 
| EN 。 賠 ザー ヤー-MUD 
ココ d。 画 ? 7 人 


ンー 
\ ヽ らら つい さ ジ アロ グ ボ ックス を 
ot 画面 ] を 選 点 表示 し な い 

[次 回 か ら こ の ダイ アロ グ 
ボッ クス を 表示 し な い ] 


ュ 和 | チェ ッ ク ボ ックス を クリ 
パー ショ ソ 情 報 Web フラ ウサ ′ デ ゲロ 94 ッ | ググ の キー ググ し て お 


bg く と 、 次 回 か ら こ の ダイ 
プッ ンク 
ここ を クリ ッ アロ グ ボ ックス が 表示 さ 
れ な く な り ま す 。 
(oo バウ ワン 





「 大 思 か の この デイ プロ ゲ 本 カメ る 表 二 し な いり) 





第 / 日 5 時 限 目 いろ いろ な テク ニッ ク 


テン ブレ ー ト 情報 
の 次 更 


フォ ー ム 上 の 情報 は ラベ 
ルコ ント ロー ル で 作成 さ 
れ て いま す 。 情報 を 変更 
する に は 、 変更 する ラベ 
ル を 選択 し 、 プロ パテ ィ 
ウィ ンド ウ で [Caption」 
プロ パテ ィ の 値 を 変更 し 
ます っ 


3 う 10 


あら か じ め 製 品 の バー ジョ ン 情 報 の サン プル が 設 
され て いる フォ ー ム が 挿入 され る 








オブ ジェ クト 名 は 
| frmSplash| に 
な っ つて いる 





ライ セッ ス 先 ' 





製作 会 社名 


製品 名 





| 
メラ フッ ト フ ォ ー ム | | 
カー ジョ ン 】 





著作 権 
会 社名 


各 ラ ベル の [Caption] プロ パテ ィ の 値 を 次 の よう に 
変更 する 









元 の ラベ ル 変更 後 の ラ ベル 
Windows98 対応 

| 著作 権 。  。 | 着 作 権 : 瀬 戸 通 。 
名 。。 = 〈〔〔…〔 | 二 較 較 Micro 


き 告 : この ブロ グラ ム を 無断 で 販売 ・ 複 製 
再 配 布 す る こと を 固く 禁じ ます 。 


書 各 
ライ セン ス 先 ライ セン ス 先 : Haruka Seto. 1998 











** 完成 し た | 見 出し 画面 | フォ オー ム の レイ アウ ト 
1 


VB Lab IEchnology 
製品 名 


Windows98 対 応 
ハー ジョ ン | 
著作 権 : 潮 戸 騰 





| 登 告 : この プロ グラム を 無断 で 販売 複製 ・ 再 配布 する こと を 固く 葉 じ ます 。 | 
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[プロ ジェ クト ] メニ ュー か が から [プロ ジェ クト 1 の 
プロ バテ イ ] 


ss. Project1 - Micro アン 
Error noe 寺 iL_ デ ne の ty_ 人 (gh_Dm 
9 GT 肖 | 記 回 1 か 4 な 4 の 和 WD Il 
: MDI フォ ー ム モジ ュー ル の 追加 0① | 
橿 準 8 標準 モジ ュー ル の 追加 MD 。 
の ジス モジ ュー ル の 追加 (C) 
トド 0 軸 ザー マト n- ル の 追加 
局 回 2 カテ ィ ペー ジ の 追加 OP) 
1 ビー ドジ [の 井 加 の 
| | ピ で : 
| 旦 ロ 


国 天 て 
回 回 罰 


| 
| 











m 導 | ここ を クリ ッ ク 
















| 
| 
| 








用 | ここ を クリ ッ ク 


[プロ ジェ クト の プロ パティ] ウィ ンド ウ の [スタ ー 
ト ア ッ プ の 設定 ] か ら 【[frmSplash] を 選 京 








、 全般 | 実行 可能 2> 人 の 作成 | L| ヤセ ポート | パグ | 
、 フリ ジェ ト の 種類 Cm: 2 ター- げ ッ プ の 琉 定 G) 


標準 EXE ェ frmSplash ァ 
ばい Sub Man 

my 

Project1 1 に に 1a 

へ ルプ "ファ イル 名 (は > テキ メ ⑩ 

| 敵 還 了 

フロ ジェ 9 ト の 説 B 衣 P> 

が 220 イ リト ニラ ッッ と HU お に のみ 奉 も あーーーーーーーーーー ーーー 

じ レ Activex トロ - ル の アゲ ダル ー ド ⑩⑪) | 

0 に g 桂 寺 2 | ま オ コア ェ クト hi と の メリ ルッ ト H) 「 

ライ ウフ キー を 所 表 ゴ ち ) | に 2 2 0 に ーー22T 「 


1 [frmSplash] 
を 選択 


[OK] を 
の クワ ッ ク ツク 











1 


_ OK キャ ン セ ル | ヘル プ ブ | 
2 の hoRD2430209TR951003K9G99490900 人 yh] 





う 1』 ミ 


第 7 日 5 時 限 目 いろ いろ な テク ニッ ク 











ョ lrmSplash: Fr0m- Unload 






剛 rc ect] 一 frmSplash Te ト ) 


が ( ッ ] (Rioad 3 5 <| 






Private Sub Form Un1oad (Cance1 As Tnteqder ) 
| Form1 .Shovw 

End Sub 

昌 Form1 iCommand1 Click 





Private Sub ゎ Command1 C1iock( ) 
| FrmSp1ash . Shovw 
に Su も 


ペーーーーーーーーーーーーーーーーーー ス 
ーーーーー 








』 


| 見 出し 画面 |] は 、 プ ログ ラム 起動 時 に 最初 に 表示 さき れる フォ ー ム で す 。 し か し 、 
Forml 以外 に フォ ー ム を 追加 し て いま す の で 、 こ の まま で は 「 見 出し 画面 | は 最初 
に 表示 され ませ ん 。 そこで 、「 見 出し 画面 ] が 表示 され た 後に 、 フ ォ ー ム が 表示 され 
る よう に し ます 。 





Visual Basic の [プロ ジェ クト | メニ ュー か ら [プロ ジェ クト 1 の プロ パテ ィ ] を 
乱 び ます 。 [プロ ジェ クト プロ パテ ィ ] と いう ウィ ンド ウ が 表示 され る の で 、[ ズ タ 
ー ト アッ プ の 設定 ] で [frmSplash] を 選び ます 。 

これ で 、| 見 出し 画面 ] フォ ー ム が 最初 に 表示 され る よう に な り ま す 。 









、 人 | 可能 7* 人 4 の 人 | | | 2 ー 3 [プロ ジェ クト プロ バテ ィ ] 
| フ m>> 外 の 種類 や 0 1 1 ワ ィ シン ドウ 
| | 標準 ExE < 6 | 

2myo 外 Gy Ni ] 

| 『Projscti っ 2 外 「 

AL フフ ァイル 名 HB: [ ' エ テ キ メト | 

| 記 の ' 

| 2nzs 外 の 説明 PA 

| EZ 「 

I 人 に コジ を の 2 E) 上 スルッ ゥ ド モテ ル (M) SS ーー 「 

| P ピ Ao ln の 7 の レト 0 em ココ 1 

| 記 3 の 1 だ 2 フレ r7 セ と の 2 ント 7) 58 


: 記 ジス キー に ラー フシ | ウレ ロリー ル の ) 「 アド 
レデ ay ゲ 2 と デス ペペ の の こき 2 コー で 22 に 223 
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人 し か し 、 こ の まま だ と 「 見 出し 画面 ] フォ ー ム だ けし か 表示 され ませ ん 。 そ こ で 、 
[見 出し 画面 |] フォ ー ム が 消え る と 、 メ イン の フォ ー ム が 表示 され る よう に 、 
frmSplash の Unload イベ ント プロ シー ジャ で 、TForm1 を 表示 する 処理 を 記述 し ま 
生 

な お 、「 見 出し 画面 ] フォ ー ム は 、 キ ー ボ ー ド が 押さ きれ る か 、 ク リッ ク さ れる と 自 
分 を 閉じ る 処理 が あら か じ め 組 み 込 まれ て いま す 。 


P ェ ュ ゞ で a モ 上 G Sub Form Un1oad(Cance1 As Tnteqder ) 
Form1 。 Show 
正 nd Sub 





プロ グラ ム を 実行 きせ て くだ さい 。 最初 に 、 見 出し 画面 が 表示 され 、 ク リッ ク す 
る と これ が 閉じ て 、 メ イン の フォ ー ム が 表示 され ます 。 


う 


今度 は 、 フ ォ ー ム と 同時 に 見 出し 画面 が 表示 され る よう に し て み ま し ょ う 。 
まず 、 今 作成 し た 、frmSplash の Unload イベ ント プロ シー ジャ を 削除 し ます 。 





次 に 、[ プ ロジ ェクト | メニ ュー の | 標準 モジ ュー ル の 追加 」 で 標準 モジ ュー ル を 
挿 信 し ます 。 








[標準 モジ ュー ル の 追加 ] 
を 選択 


[標準 モジ ュー ル ] を 選択 





第 / 日 5 時 限 目 いろ いろ な テク ニッ の 





る 





LModulel1l の コー ド に 、「Sub Main| と いう プロ シー ジャ を 作成 し 、2 つ の フォ 
ー ム を 表示 する コー ド を 記述 し ます 。 
この と き 、 一 番 上 に 表示 され る フォ ー ム を 最後 に 記述 し ます 。 


"Module1: 隊 





」 ーー ie 


_Sub Main() | 
| Form1 .Show | 
| F ェ rmSp1ash . Show | 


1 Basic の [プロジェクト] メニ ュー か ら [プロ ジェ クト 1 の プロ パテ ィ ] を 
、 [プロ ジェ クト プロ パテ ィ ] ダイ アロ グ ボ ックス で [スタ ー ト アッ プ の 設定 ] 
mia 設定 を [Sub Mainl に し ます 。 


[Sub Main] に 設定 


1 想 EE ケミ リタ の) 和 3 6 
FIdS3O | アク 51 に の クラ 
6 本 97 と く ド | で 2 SR 


プロ グラ ム を 実行 し ます 。Form1 と 見 出し 画面 の 両方 が 表示 され 、 見 出し 画面 が 
最上 面 に きま す 。 


この 状 台 で は 、 両 方 の フォ ー ム が 表示 され 、 メ イン の フォ ー ム の 操作 も で きま す 。 


完成 版 は 「Lesson312.vbp」 
と し て CD-ROM に 収録 
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[見 出し 画面 | は 、 プ ログ ラム の 製品 名 や バー ジョ ン 情 報 を 表示 する の に 使い ます 。 
プロ グラ ム の ライ セン ス 表 示 の 意味 や あり ます の で 、 有 効 に 使っ て くだ さい 。 

この 見 出し 画面 は 、 目 分 で も 作成 で きま す が 、 最 初 か ら レ イア ウト され て いる テン 
プレ ー ト を 使う と 、 作 業 の 手間 が 省け ます 。 

テン プレ ー ト に は 、 他 に も いろ いろ と 用 意 さ ご され て いま すか ら 、 目 的 に 合っ た テン ブ プ 
レー ト を 選ん で 、 活 用 する と いい で し ょ っ うっ 。 


く c あぁ 


[Lesson3 1 .vVDp]」 に 、 テ ンプ レー ト に ある 「 バ ー ジ ョ ン 情 報 」 を 追加 
し 、Form1 に 配置 し た コマ ンド ボタ ン を 押す と 表示 され る よう に し て く 
寺 しり 。 


解答 は 巻末 に 一 





者 表 ワン ポイ ント アド バイ ス 





この 「 見 出し 画面 | フォ オー ム に ある 「 製 品名 ] と 「 バ ー ジ ョ ン 」 は 、frmSplash 内 
の コー ド に よっ て プロ グラ ム 動 作 時 に 、 自 動 的 に 表示 され る よう に な っ て いま す の で 、 
書き 換え て も 実行 時 は 反映 され ませ ん 。 | 製品 名] は 、 プ ロジ ェクト ファ イル の 名 前 が 、 
バー ジョ ン は プロ ジェ クト の バー ジョ ン 情 報 (プロ ジェ クト プロ バテ ィ ウ ィ ン ド ウ で 設 
定 ) が 使わ れ ま す 。 そ れ 以 外 の 文字 は 、 ラ ベル コン トロ ー ル の Caption プロ パテ ィ を 
変更 し て 、 好 きか な 文字 に 変え て 使用 し ます 。 

また 、 イ メー ジ も 、 初 期 設 定 で は Visual Basic の アイ コン が 割り 当て られ て いま す 
か ら 、 自 分 の 好き な イメ ー ジ に 入れ 替え て くだ さい 。 






| 者 参 ワン ポイ ン ト 


[フォ ー ム レイ アウ ト 」 ウィン ドウ を 使用 す 
る と 、 デ スク トッ プ に 表示 され る フォ ー ム の 位 
置 を 、 自 由 に 設定 で きま す 。 た だ し 、 使 用 され 
る Windows の 画面 解 父 度 に よっ て 、 表 示 位 置 
が 多少 ずれ る 場合 が あり ます の で 、 注 意 し て く 


だ さい 。 








第 / 日 5 時 限 目 いろ いろ な テク ニッ に 










誠 ご ン (LesSon3 ら ~ LesSon34 ) 
ジュ シン ネー 


プロ グラ ム 作 成 で 久 か せな い の が 、 デ バッ グ 作 業 で す 。Visual Basic で は 、 変 数 
の 内 容 を 見 る 「 ウ ォ ッ チ 」 や 、 プ ログ ラム を 1 行 ず つ 実 行 で を る 「 ス テッ プ 実 行 」、 
コー ド の 傍 中 に 設定 し て 一 気 に そ こま で 実行 させ る 「 ブ レイ クボ ポイ ント 」 な ど 、 プ 
ログ ラム の 動作 を チェ ッ ク す る 機能 を 装備 し て いま す 。 

今日 の レッ スン で は 、 こ れ ら の デバ ッ ツ 機能 の 使い 方 を 説明 し ます 。 ま た 、 プ ログ 
ラム の 途中 で エラ ー に な っ た 場合 に 、 プ ログ ラム を 停止 させ ず に 処理 を 続行 させ る 
| エラー 処理 ] の 使い 方 を 紹介 し ます 。 
今日 の レッ スン で 解説 する 項目 
ココ プロ グラ ム を 1 行 ず つ 実 行 さ せる 「 ス テッ プ 実 行 」 の 操作 
特定 の 変数 の 値 の 変化 を 見 る 「 ウ ォ ッ チ 」 操作 

コブ レー ク ポ イン ト の 設定 と 操作 方 法 

[OnError| ステ ー ト メン ト を 使っ た エエ ラー 処理 の 組み 立て 方 























則 山 皿 山川 
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リア スス イマ /7 // 


1 時 限 目 


テバ ッ グ と 
エラ ー 処 理 


〇 Learning Edition 














変 迷 の ウォ ッ チ を 使う 


プロ グラ ム を 1 行 ず つ 実 行 さ せる 、「 ス テッ ププ 実行 」 の 操作 を 覚え ます 。 
また 、 ス テッ フ プ 実 行 を し な が ら 、 特 定 の 変数 の 値 の 変化 を 見 る 「 ウ ォ ッ 
ナ 」 操作 を 身 に 付け ます 。 





島 今回 作成 する プロ グラ ム 


0 


この ボタ ン を 
リック する と … 


ら 5 つの 円 が 措 画 
され る 








FOr..….Next ルー プ を 使っ て 、 円 を 5 つ フ ォ ー ム に 描画 する 簡単 な 
プロ グラ ム を 作り 、 ス テッ プ 実 行 と 変数 の ウォ ッ チ を 使っ て み ま す 。 












LeSSOn3 ら 変数 の ウォ ッ チ を 使う 


トド 引 一 ル と ララ う ラロ)/ ラテ 





ィ の 設定 


※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 
目 ツー ル ボ ックス で CommandButton] = を ク 
リッ ク し 、 フ ォ ー ム 上 に コマ ンド ボタ ン を 配置 する 


に ジワ リッジ と 


その まま ここ 
ドラ ッ グ 


プロ バディ ウィン シン ドウ ゼ IEaptiGnl 回 江 デ テディ の 
人 


[Command1 Commarnd Button 


まで 





ここ を ダブ ルク リッ ク 
| 円 の 描画 ] と 入力 











エミュ で a モ 上 eG Sub Command1 C11cCk( ) 
D1m 交 AS エロ 上 GdG エ ,/ AS エロ 上 Gd@Gr エ 
D1m 1 A8 エ nE 上 ed@er 
= 500 
マ Y = 1000 
FoOr エ = O "mo4 
C ュ rc1e (xx, ) , 400 
= + 800 
NG 


下 nd Sub 


第 8 日 


1 時 限 目 フン フェ ラー 本 2 





< ラ オミ 


プロ グラ ム の 誤り の こと 。 
不正 な 処理 が 起き た と き 
に 発生 し ます 。 





グ 

プロ グラ ム の 不具 合 の こと 。 
バグ が ある と プロ グラ ム が 
止 常 に 動作 し ませ ん 。 


と デリ トッ ツン 


| バグ 」 を 取り 除く 作業 を 
デバ ッ グ と いい ます 。 





の ウォッチ 


プロ グラ ム の 実行 中 に 値 の 
変化 を 監視 する 機能 。 デ バ 
ッ グ 作業 に 有効 で す 。 


容 ステ ッ ー 和 生 


プロ グラ ム を 1 行 ず つ 実 行 
する こと 。Visual Basic に 
は [ステッ プイ ン ] 証 | チチ 
ッ プ オー バー 」、| ス チュ リ 
アウ ト 」 の 3 種類 が 用 意 き 
れ て いま す 。 

















』 


プロ グラ ム の コー ド そ の も の は 、 人 簡単 な コー ド で す 。「Circle」 メソ ッ ド を 使っ て 、 
フォ ー ム に 円 を 描画 し ます 。 | (x、y)」 は 円 の 中 心 位置 座標 、「400」 は 円 の 半径 を 
設定 し て いま す 。 この と き 、 For: .Next ル ー プ で 、5 つ の 円 を 連続 で 描画 し ます 。 円 
が 重 な ら な いよ うに 、 描 く た び に 右 に ずら し て いき ます (x+800)。 





ます 、 円 の 中 心 の 座標 「x] の 値 が どう 変化 する の か 、 変 数 の 値 を 見 られ る よう 
に も まり 。 
Visual Basic の [デバッグ] メニ ュー か ら [ウォ ッ チ 式 の 追加 ] を 選び ます 。 










人 の 人 iR 7 ye | yy が XD) 実行 G) 灯り -UD 伯 ゲ ラ A① ツー ル CD 7 


展 Or 到 回 | 記 内 本 ガッ の ⑩ FB 





ダッ 16 」 aa 
MD むす る ルッ す ビ な 





か の まで 守 人 GO 







(oo ンー ここ を 選択 
し ナン! 2 全 甘え に ) 


@ 9 の 9. 証 どこ 


W フ ヤ ー ホ イト の 設定 / 半 CD 
すべ て の フルーク ホイット の 解除 で curewvfs 


ーー ED 
まで うか ナー ご すす を を 5 て 
プン リア オル メラ た に すま 7 










[ウォ ッ ナ 式 の 追加 ] ダイ アロ グ ボ ックス が 表示 きれ ます の で 、[ 式 ] ボッ クス に 
変数 名 |x] と 入力 し ます 。 そ し て 、[OK] ボタ ン を クリ ッ ク し ます 。 


「 吾 -ー ed Click 引 相 | 
モジ ュー ル (M4) に 3 


32 Project 


記 式 が Tu の と き に 中 WO TI 1 
素 の 式 の 内 が 天 化 し た と き に "NG iti ーー 








上 
| と 
| 








省 Visual Basic の 画面 下部 に 、[ ウ ォ ッ チ ] と いう ウィ ンド ウ が 表示 きれ ます 。 こ こ 
に 、 変 数 の 値 が 表示 され 、 プ ログ ラム を 実行 し な が ら 変 数 の 中 身 を 知る こと が で き 
ます 』 











LeSSOon32 変数 の ウォ ッ チ を 使 


人 今度 は 、 デ バッ ク 機 能 の 「 ス テッ プイ ン 」 を 使っ て 、 コ ー ド を 1 行 ずつ 実行 し て 
いき ます 。 
まず 、Visual Basic の [デバッグ ] メニ ュー か ら [ ス テッ プイ ン ] (ショ ー ト カッ 
トキ ー は F8) を 選び ます 。 


1 和 
- と LT な チン 





衣 プロ グラ ム の 実行 が 開始 され 、 フ ォ ー ム が 表示 され ます (実行 中 の プロ グラ ム と 
Visual Basic の ウィ ンド ウ の 両方 が 見 える よう に 画面 を レイ アウ ト し て くだ さい )。 
フォ ー ム の | 円 の 描画 ] ボタ ン を クリ ッ ク し ます 。 コ ー ド ウィ ンド ウ の プロ シー 
ジャ 名 が 黄色 で 男 囲 選択 さき れ ま す 。 





1 」 ここ し ' : 
Cowwanai <| cisck 

| Private Sub Command1 Click() 
I 還 X AS Integer、 y As Integer 















Dim | As Integer 


x = 50O 








y = 1000 Au 
For ji=QOTo4 EONET 2 


ここ が 黄色 に 反転 する 











/ 8 キー を 押す と 、 黄 色 の 反転 表示 が 次 の 行 に 移動 し ます 。 そ の まま 、For ループ 
が 1 回 行わ れる (「Next] 行 が 黄色 に 反転 する ) まで 、F8 キ ー を 押し 続け ます 。 


。 由 上 四 | 











Private Sub Command1_Click() 
Di 箇 As Integeer. y As Integer 
| 才 < に 


現在 実行 中 の 行 が 黄色 
の 反転 表示 に な る 






Mex 
End Sub 





第 8 日 1 時 限 目 デバ ッ グ と エラ ー』 








一 方 、 ウ ォ ッ チ ウ ィ インド ウ に ある 変数 「x] の 値 は 、「x=500] に きた 時 上 京 で は 
[500] と 表示 きれ て いま す 。 
これ が 、 ル ー プ が 実行 され 、「x = x + 800」 の 行 を 過ぎ る と |1300」 に 変化 し ま 
す 。 す な わ ち 、「x = 500 + 800] と いう 式 が 実行 きれ て 、 変 数 の 値 が 変化 し た の で 
す 。 
プロ グラ ム の 実行 画面 で は 、 フ ォ ー ム に 円 が 描画 さき れ て いま す 。 





F8 キー を 押し 続け 、 も う 一 度 ル ー プ を 実行 し ます 。 変数 lx] の 値 が また 変化 し 、 
フォ ー ム に も う 1 つ 円 が 描画 され ます 。 さ ら に 、F8 キ ー を 押し 続け 、「End Sub」 の 
所 に 矢印 が きた ら 終 了 で す 。 ま た 、[ デ バッ グ ] メニ ュー か ら [ステ ッ プ アウ ト 」| を 


この ウィ ンド ウ が 表示 され な いと き は [表示 ] 
メニ ュー か ら 【[ ウ ォ ッ チ ウ ィ ン ド ワウ] を 選択 





選択 する と ステ ッ プ イン 機能 が 終了 し 、 通 常 の 実行 モー ド に な り ま す 。 


+ ] [ デア Ys | | 4 


mm で america PXE ステ CR 











軒 Private Sub Command1_Click() 
馬 Dim x As Integer, y As Integer 
Dim | As Integer 






x = 50O 
y = 1000 
For i= ニ 0To4 

Circle (x. y). 400 
x ニ x+ BOO 
| | Next 
。 | End Sub 


変数 の 値 が 「3700」 
に 変化 する 








LeSSOon32 変数 の ウォ ッ チ を 使 


Onsnn を 1 一 に と Ln 『 か ー『 
1 【 


ー ー hs mW ご oo Ro an = ロミ 
ICommandi <| IClick yi 
Priyate Sub Command1_Click Sn 

Dim x As Integer. y As Integer 

Di 和 mm 」 As Integer 

x = 500 | 

y = 1000 

For !=OQTo4 | 邊 
Circle (x. y). 400 | 
x ニ x+ BOO 

Next 1 ー 

Pnd Su ここ に きた だ たら 終了 
j 
= < | 引 1 





10 





この よう に し て 、 ス テッ プイ ン 機 能 を 使え を ば プロ グラ ム を 1 行 ず つ 実 行 し 、 動 作 
を 確認 する こと が で きま す 。 

また 、 ウ ォ ッ ナチ ナ 機 能 を 併用 する こと で 、 プ ログ ラム を 実行 し な が ら 変 数 の 値 の 変 
化 を 見 る こと が で きる の で 、 プ ログ ラム が 設計 どおり 動作 し て いる の か どう か を 確 
了 で きま す 。 


大 規模 な プロ ジェ クト に な れ ば な る ほど 、 プ ログ ラム の 動作 確認 は 大 変 な 作業 に な 
ら て ざま す 。 


ステ ッ プ 実行 は 、 プ ログ ラム の 動作 確認 に 使う と 、 た い へ ん 便利 な 機能 で す 。 変 数 
の 値 の チェ ッ ク も 重要 で す 。 設計 どおり の 値 に な っ て いる の か どう か は 、 こ の ウォ ッ 
ナ 機能 を 使え ば 簡単 に 確認 で きま す 。 


上 W この プロ グラ ム に 、 ル ー プ の カウ ンタ 変数 「i] の 値 が 見 える よう に 、 
ウォ ッ チ ウィ ンド ウ に 追加 し て くだ さい 。 


解答 は 巻末 に 一 








生 ー ン ボ ポ イン ト ア ド イス 


ウィ ンド ウ が 重なっ た と き に 、 フ ォ ー ム の 円 が ちゃ ん と 描画 され な い 場 合 は 、 
Form1 の [AutoRedraw] プロ パテ ィ を 「True」 に 設定 し て くだ さい 。 こ うす る と 、 
フォ ー ム が 他 の ウィ ンド ウ に 隠れ て も 、 ち ゃ ん と 元 ど お り に 描画 し 直さ れ ま す 。 





第 8 日 1 時 限 目 デバッグ と エラ ー 色 に 


プレ ー ク ポイ ント を 使う 


ブレ ー ク ポイ ント の 設定 と 操作 方 法 を 覚え ます 。 
飼 回 は 、 特 に プロ グラ ム は 作成 し ませ ん 。 す で に 作成 され て いる 
[QAA-25.vbp」 を 使用 し て 、 ブ レー ク ポ イン ト の 方 法 を 紹介 し ます 。 





ラ 回 作成 する プロ グラ ム 


ー 5 プロ グラ ム を 登録 
寄 13 品 1 6 人 . 民 し よう と する と -… 
mmain.List1.Addltem ExecFile 
ど 時 限 目 Pd 
5 SaveSetine aDDname - 二 ー"QRun". section "SetApp" 
1 3 し 9 凍 還 生 さ うさ コ 1 
Setup. Hide 
Key :=" AppCount"。 Defaul キ - ニ “0” ) 
Il 三 』」 キ ] 
Fn る Se て ting appname: ニ "QRun", section "SetApD"。 
: Lesson33.Vhp 。 Key:= i. settine: ニ ExecFile 
ms、 main.List1.Addltem ExecFile 
9 VBeCD ここ で ブレ ー ク 
「 ー こ SaveSettine appname- 二 "QRun"、 section "SetApp"。 ーー 
こ に LeSSO0H33 eY "ApDCount"。 settine - ニ i する 
Setup. Hide 
End Sub 
人 本 











プロ グラ ム の ある 行 に ポイ ント を 設け 、 そ こま で は 通常 どおり に 
実行 させ 、 そ こ か ら ス テッ プ 実 行 さ せる こと が で きま す 。 こ の ポイ 
ント を 、| ブ レー クボ ポイ ント 」 こ と いい ます 。 比較 的 長い コー ド で 、 場 
所 を 特定 し て ステ ッ プ 実行 させ た い 場 合 に 使う と 便利 で す 。 


う 2 全 


LesSSOn33 ブレ ー ク ポイ ント を 使 











』 


まず 、 付 録 デ ィ ス ク の 「Q&A」 フォ ル ダ に 収録 きれ て いる 「Q&A-25.vbp」 を 読 
み 込 み ま す 。 そ し て 、「Setup] フォ ー ム の コー ドウ ィ ン ド ウ を 表示 し ます 。 













= 
1 『 蘭 Projsct1 - Sstup 


Cm 


の 


日 記 く 。 RC 
Dim | As Integer 
Private Sub AddProgram_ Click 


Cal | SetunAnDp 
End Sub 





ー ド ーー だ ツィン ドウ 
を 表示 する 









Private Sub cxsetun_ ClickO 
Setup. Hide 
End_ Sub 





Priyate Sub Drive1 _Change() 
On Error GoTo FAIL 
Dir1.Path = Drive1.Drive 
Exi+ Sub 


FMAIL: 
MsgBox Error(Err.Number) 
敵 べ べ べ べ べ べ べ べ ベ べ = 


Private Sub Dir1 Change() 
File1.Path = Dir1.Path 
End Sub 


Private Sub File1_DbIClick 0 





クア 火 に 、「Sub SetupApp0」 プロ シー ジャ に 移動 し ます 。 
ここ に ある 、|SaveSetting」 の 記述 の 、 左 端 を マウ ス で クリ ッ ク す る と 、 依 印 が 
ンド ウ に 付き ます 。 
れ で 、 こ の 行 に プレ ー ク ポイ ント が 設定 され まし た 。 
財 BPSSSS 


WW 2 







Project1 - Setup (コー| 


間 GeeeD 









。 | 還 ーー 
Private Sub SetupApp () 


Dim Re+ 上 As String 
Dim ExecFile As String 










ExecFile = Dir1.Path + “\" + File1.FileName 
Ret = MseBoxC" 選択 し た アゴ リケーション を 登録 し ます か ?". 
vbOKCancel. "アゴ リ ケー ショ ン の 登録 ") 
|† Re+ = 1 Then 
| 三 GetSet+ing (appname: ニ "QRun"。 section "SetApD'. 
Key :=" AppCount"。 Default:="07") 


1 ニョ キャ 1 


SaveSet ト ing appname : ニ "QRun", 






section: ニ "SetADD"。 


1 
1 


ここ を クリ ッ ク す る 






main.List]1.Addltem ExecFile 
End |† 










ブレ ー ク ポイ ント 
が 設定 され た 





aDDn コ 生 G - 二 "QRun~. sect』on "SetApp" . 


SayeGSG 上 上 ng 
ーー ppCount"。 set ing - 二 i 


Kew - ニ 














Setup. Hide 
End Sub 
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つう 


プロ グラ ム の 美 行 ボ タン を ク グ クリック タ し ます 。 通 営 どおり プロ グラ チム は 和 実行 し ます 
が 、 プ レー ク ポ イン ト の ある 行 の と ころ (セッ ト ア ッ プ プロ グラ ム で アプ リ ケ ー シ 
ョ ン を 登録 し た と き ) で 、 プ ログ ラム の 動作 が 停止 し ます 。 ス テッ プ 実 行 の と き の 
よう に 、 ブ レー ク ポ イン ト を 設定 し た 行 が 黄色 の 反転 表示 に な り ま す 。 

これ で 、 こ の まま F8 キー を 押せ ば 、 ス テッ プイ ン で 1 行 ず つ プ ログ ラム を 実行 で 
きま す 。 そ の まま 動作 きせ た けれ ば 、 ツ ー ル バー の [継続] ボタン 国 を クリ ッ ク す 
れ ば 、 通 常 の 実行 が 行わ れ ま す 。 














| Private Sub SetupApp () 
Dim Re+ As Sring 
Dim ExecFile As SrIing 


ExecFile = Dir1.Path + “"\ + File1.FileName 
Ret = MsgBox(" 選択 し た アゴ プリ ケー 0 
ybOKCancel. "アフ リ ケ ー ショ ン の 登録 ") 
I† Ret = 1 Then 
| 三 GetSet+†」ng (appname : ニ "QRun"。 sect」an : ニ " SetApD". 
Key :=" AppCount"。 Default "0" ) 
1 ニョ 』+ ォ ] 


SaveSetting appname: ニ "QRun"。 sectign "SetADD. 
Key : ニ | setting: ニ ExecFile 


main.List1.Addlte 生 ExecFile 
End |† 


六 7e aDDn3mme "QRun". section "SetAppD"。 
6Y "ADDCount"。 set 上 ing - 三 1 


Setup. Hide 
End Sub 





ーーーーーーーーーー バ ーー ツー バーーーーーー の ーー バーーーー ツ バーバ ーーーーーーー…・ 





設定 し た ブレ ー ク ポイ ント を 解除 する に は 、 ブ レー ク ポ イン ト の 鍛 印 を 再度 クリ 
拓 ま し まず > 

また 、 プ ブレーク ポ イン ト は いく つも 設定 で きま す の で 、 確 認 し た い 場 所 だ け ス テ 
ッ プ イン 実行 させ る 、 と いう こと が 可能 に な り ま す 。 


タイ トル バー に よる モー ド の 確認 


Visual Basic の タイ トル バー に は 、Visual Basic の 動作 状態 が 表示 され ます 。 通常 、 プ ログ ラ 


ム 作 成 中 は 、「 デ ザイ ン 」| と いう 文字 が 表示 きれ ます 。 
また 、 プ ログ ラム を 実行 する と 「 実 行 ]| が 、 ス テッ プイ ン 実 行 で 動作 を 一 時 中 止 す る と 「 中 
断 ] と 表示 きれ 、 現 在 Visual Basic が どの 動作 モー ド に ある の か が わか る よう に な っ て いま す 。 
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長い コー ド で 、 特 定 の 場所 だ け ス テッ プ 実 行 さ せ た い と き は 、 こ の ブレ ー ク ボイン 


ト 機能 を 使う と 便利 で す 。 
また 、 プ ログ ラム の テス ト で バグ が 出 た と き な ど は 、 バ グ が あり そう な 場所 に ブレ 
ー ク ボイン ト を 設定 し な が ら バ グ の 個所 を 探し 出す 、 と いう 操作 が 可能 に な り ま す 。 


者 馬 ワン ポイン ト ア ドバイ ス 


イミ ディ エイ トウ ィ ン ド ウ を 使う と 、 プ ログ ラム の コー ド と は 関係 な く 、 自 分 の 考え 
た コー ド を 試す こと が で きま す 。 

下 の 画面 は 、 組 み 込ん だ フォ ー ム を 表示 させ る コー ド を 、 イ ミディ エイ トウ ィ ン ド ウ 
に 記述 し て いま す 。 コ ー ド を 記述 後 、Enter キー を 押す と 、 コ ー ド が 実行 され ます 。 プ 


ログ ラム が 実行 され て いる わけ で は あり ませ ん 。 
コー ド が 実生 
され る 










コー ド を 書い て 
Enter キー を 押す 


COLUMN 


DeDug Print 


変数 の 内 容 を 知る の に 、 ウ ォ ッ チ ウ ィ ン ド ウ を 使う 方 法 を 説明 し まし た が 、Debug オ ブ ジ ェ 
クト の Print メ ソ ッ ド を 使う と 、 イ ミディ エイ トウ ィ ン ド ウ に 変数 の 中 身 を 表示 で きま す 。 
例え ば 、 変 数 [NumCount」 の 中 身 を 表示 する に は 、 コ ー ド の 中 で 、 


Debud . D エ ュ エロ ヒ NumO 〇 un 


と 記述 し ます 。 も ちろ ん 、 デ バッ グ 用 の オプ ジェ クト と メソ ッ ド な の で 、 デ バッ グ が 終わ れ 
ば 、 こ の コー ド は 削除 し ます 。 
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エラ ー 処 理 を 使う 


ユー ザー が 入力 し た ファ イル 名 か ら 、 フ ァイル の サイ ズ を 求め る プロ グ 
ラム を 作成 し 、「OnError」 ステ ー ト メン ト を 使っ た 、 エ ラー 処理 の 組 
み 立 て 方 を マス ター し ます 。 





テ 回 作成 する プロ グラ ム 
auFent =I ロ lx 
ファ イル 名 を フル バス で 入力 し て くだ さ ! ぃ 。 9 ア イ し 名 を 
Po の かつ 
サイ ズ の 取得 | 
ボタ ン を クリ ッ ク 
する 
づ 時 限 目 
BRESEU2USONRSIN ここ 
実行 時 うー 5 な エラ フラー 処理 を し な いと プロ 
ファ 4 が 見 つか り ませ ん 。 ーー が 停 止 し て し ま 2 





エラ ー 負 理 で メッ セー ジ ボ ッ クス 
_ 指定 し た ファ イル が 見 つか りり ませ ん 。 再度 入力 し て 下さ し ぃ 。 | を 表示 し プロ グラ ム を 継続 


ーー 


< Lesson34.Vbp 
② WO6U 
ココ Lesson34 





プロ グラ ム の 処理 の 中 で 、 ユ ー ザ ー の 操作 に よっ て は 正常 な 動作 
が で き な く な る 場合 が あり ます 。 例 えば 、 フ ァイル 名 を 入力 し て も 
ら つ 場面 で 、 存 在 し な い フ ァイル 名 を 入力 され る と 、 プ ログ ラム は 
正常 な 処理 が で き な く な り ま す 。 こ の よう な 場合 は 、 プ ログ ラム 側 
で 存在 し な い フ ァイル 名 が 入力 され た 場合 の 処理 を 、 設 け て お く 必 
要 が あり ます 。 こ れ を エラ ー 処 理 と いい ます 。 

VISual Basic で は 、 メ ソ ッ ド な ど で は エラ ー が 発生 する と プロ グ 
ラム の 動作 を 停止 上 せ て し まう も の が あり ます 。 そ こ で 、 こ れ を 回 
加 す の た め に 、「 エ ラー 処理 | 専用 の ステ ー ト メン ト が 用 意 さ れ て い 
ます 。 

ここ で は 、 こ の エラ ー 負 理 ステ ー ト メン ト の 使い 方 を 紹介 し ます 。 


う 2S 
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幅 コン トロ ー ル と プロ パテ ィ の 設定 





※ 新 し い プ ロジ ェクト と フォ ー ム を 用 意 し ます 。 


ツー ル ボ ックス の [Label] 護 を クリ ッ ク し 、 
フォ ー ム 上 に ラベ ルコ ント ロー ル を 配置 する 





に ンチ リツ 





[Caption] プロ バテ ィ の 値 を | ファ イル 名 を フル パ 
ス で 入力 し て 下さ ざい 」 に 変更 する 








ILabel1 Labsl el | 


人 ま 祭 項目 別 | 










| | &H8HIHHHIF& 
1 - 天明 


ロ n- な し 軸 | 








コ ァ イル 名 フル バス で 







DataFormat 
』 じ ョ talsmbsr 






朋 


ツー ル ボ ックス の [TextBox] SB を クリ ッ ク し 、 
フォ ー ム 上 に テキ スト ボッ クス コン トロ ー ル を 配置 する 


プッチ 





1 
3 
上 
| 
を 
1 
* 
5 
1 
| 
ま 
5 
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こと を ダフ ルク リッ ク 





ぐ ダ ラベ ル を 選択 
この 操作 を 行う 前 に 、 作 
成 し た ラベ ルコ ント ロー 
ル が 選択 さき れ て いる こと 
を 確認 し て くだ さい 。 


っ 9 


テキ スト ボッ クス 
くき な 選択 


この 操作 を 行う 前 に 、 作 
成 し た テキ スト ボッ クス 
コン トロ ー ル が 選択 され 
て いる こと を 確認 し て く 
だ さい 。 


コマ ンド ボタ ン 
< くぎ -、 
この 操作 を 行う 前 に 、 作 
誠 し た コマ ンド ボタ ンコ 
ント ロー ル が 選択 され て 
ゅ いる こと を 確認 し て くだ 
さい 。 


う 30 ひ 


だ 14mlg 


Dsfault F ョ |== 


プロ パテ ィ ウ ィ ン ド ウ で Text] プロ バ パティ の 値 を 
削除 する 


日 バテ イー Tsxt1 








| Text1l TestPow ] 


王 ]1 本 | 項目 中 | 









Tabikdex 
TbStop 


| ここ を ダブ ルク リッ ク 
1g | | 
Text 1 Del キー を 押す 


ツー ル ボ ックス の [ComandButton] 一 を クリ ッ ク し 、 
フォ ー ム 上 に コマ ンド ボタ ンコ ント ロー ル を 配置 する 





| diil 





ファ イル 名 を フル バス で 入力 し て くだ さ ! (。 


プロ パテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ の 値 
を | サイ ズ の 取得 」 に 変更 する 





』 上 My 。 mmB 


8 
」Command1 ConmmardBiuttnn 1 | 


















| 低 練 | 項目 明 | | cz 
| 貞 ロ D ロ = ョ 「 ョ ロ ご ら 1 - 3D ご と を ルン リッジ 











BackCalar 


| %H8nnnnnnF& 「 
Fal= ぉ = 肖 [ 
サイ ズ の 取 符 


ご ョ ロミ = ミソ ョ | ョ tinn True 


に ョ ロロ と | 


hisablsdPicturs 【〔 な し | | 
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ツー ル ボ ックス の [Label] を クリ ッ ク し 、 
フォ ー ム 上 に ラベ ルコ ント ロー ル を 配置 する 


| ail に | 口 | | 
ファ イル 名 きき フ ル バ ス で 入力 し て くだ さい 。 







ここ を クリ ッ ク 


サイ ズ の 取得 し て 





プロ バ パティ ウィ ンド ウ で [Caption] プロ バテ ィ の 條 | < を 
を 削除 する ト 

この 操作 を 行う 前 に 、 作 
TE 識 し だ た だ た ラベル コン まま 
上 ル が 選択 され て いる こと 


|LabeI2 Labsal FI | を 確認 し て くだ さい 。 
全体 | 項目 別 | | ーー 
( ここ に を タン ルク タリ ッ シ ツク 


Del キー を 押す 

















ポ F0rm1:C0mmand1-Click 


Projsct1 - Form1 (ロート ) 


|Command1 ・| |IClick ・| 


P ェ ivyate Sub Commmand1 C11C 半 () 
Dim FName AS 8 ヒエ ュ nmd 
Dim FS1ize AS LoOnd 





FName = Tex*1 。TGx 

FS1zG = FileLen (FName ) 

rabe12 .Caption = "ファ イル g grName gs " の サイ ズ は " 
g FrSize gg " バイ ト で す 。* 





nd Sub 
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上 プロ グラ ム は 、[ サ イズ の 取得 ] ボタ ン を クリ ッ ク し た と き に 実行 さき せる の で 、 コ 


マン ド ボ タ ン の Cliick イ ベン ト プ ロ シー ジャ に 作成 し ます 。 
ます ず 、 フ ァイル 名 と ファ イル サイ ズ を 格納 する た め の 変 数 を 宣言 し ます 。 フ ァ イ 
ル サ イ ズ の 変数 FSize は 、Long ( 長 整 数 型 ) で 宣言 し て くだ さい 。 


Dim FName AS Sting 
Dim FSize As Long 





テキ スト ボッ クス コン トロ ー ル に 入力 され た ファ イル (パス ) 名 は 、 変 数 
IFName」 に 格納 し ます 。 

て し て 、 格 納 し た 変数 を 「FileLen| 関数 に 渡し ます 。[FileLen| 関数 は 、 指 定 し 
だ た ファ イル の サイ ズ を 返す 関数 で す 。 返 し て きた サイ ズ は 、 変 数 で 受け 取っ て 文字 
列 と 組み 合わ せ て 、 も う 1 つ の ラベ ルコ ント ロー ル で 表示 し ます 。 


FName = "Tex て 1 。 中 尽 

FS1ze = Fi1erTien (FName ) 

Labe12 .Caption = "ファ イル " g gName gs " の サイ ズ は 『" 
& FSize g " バハ イト で す 。* 


これ で 完成 で す 。 プ ログ ラム を 動作 きせ て くだ さい 。 フ ァイル 名 を 入力 する と 、 
て の ファ イル サイ ズ を 表示 し ます 。 

だ た だ し 、 フ ァイル 名 を ドラ イブ 名 を 含め た フル パス で 入力 し な いと 、TFileLen 関 
数 は エラ ー に な っ て 、 プロ グラ ム を 強制 的 に 終了 させ て し まい ます 。 ま た 、 存在 し 
な い フ ァイル 名 を 入力 し て も 同様 で す 。 











この 事 琵 を 回 避 す る た め に 、Visual Basic に は エラ ー 処 理 の ステ ー ト メン ト が 用 
意 さ れ て いま す 。 こ こ で は 、 そ の 1 つ 「On Error」 ステ ー ト メン ト を 使い ます 。 

この ステ ー ト メン ト を 使う と 、Visual Basic が 発生 きせ た エラ ー を 受け 取っ て 、 
指定 し た 処理 に プロ グラ ム の フロ ー を ジャ ンプ させ る こと が で きま す 。 

この プロ グラ ム で は 、 誤 っ た ファ イル 名 の 入力 が あっ た 場合 、 入 力 間違い で ある 
こと を メッ セー ジ ボ ッ クス で 通知 し 、 再 度 入力 し て も ら う よう に 処理 を 戻し ます 。 
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で は 、 実 際 に この 処理 を 組み 込ん で み ま し ょ う 。 

IFSize = FileLen(FName)|」 の と ころ で エラ ー が 発生 し ます か ら 、 こ の 行 の 前 に 
エラ ー 処 理 を 次 の よう に 組み 込み ます 。 こ の 「On Error| ステ ー ト メン ト で は 、 エ 
ラー が 発生 し た ら ラ ベル [MSG」 の 処理 に ジャ ンプ する よう に 記述 し て いま す 。 


On 到 エ エ o エ GoTo MSG 
FsS1izeG = Fi]1eTLien (FName ) 


エラ ー が 発生 し な か っ た と き に は 、 エ ラー 処理 へ ジャ ンプ する 必要 は あり ませ ん 
か ら |Exit Sub」 と いう 行 を 、 エ ラー 処理 ルー チン で ある 「MSG」 ラベ ル の 前 に 記 
述 し て お きま す 。 エ ラー が 発生 し な か っ た と き は 、 こ の 行 で Cliick イベ ント プロ シ 
ー ジ ャ の 処理 が 終了 し ます 。 


EE ユ 七 Sub 


「coTo|] ステ ー ト メン ト は 、 そ の 次 に 記述 し て ある 「 ラ ベル | に 処理 を ジャ ンプ 
させ ます 。 こ の 処理 で は 、 エ ラー が 発生 する と 「MSG」 と いう ラベ ル に 処理 を ジャ 
ンプ させ 、FileLen 関数 の 次 の 処理 は 実行 きれ ませ ん 。 

ラベ ル は 、 ラ ベル 名 の 後に 「:| を 付け て 、 プ ロ シ ー ジ ャ の 終わ り の ほう に 設定 し 
ます 。 


MSG 


この ラベ ル に ジャ ンプ する と 、 ラ ベル 以降 に 記述 し た 処理 が 実行 され ます 。 そ し 
て 、 そ の 処理 が 終了 する と 、Click プロ シー ジャ の 処理 も 終了 し ます 。 

ここ で は 、 エ ラー が 発生 する と 、 フ ァイル が 見 つか ら な いと いう メッ セー ジ ボ ッ 
クス を 表示 し 、 テ キス ト ボ ックス コン トロ ー ル の [Text] プロ パテ ィ を 空白 に し 、 
フォ ー カ ス を 設定 し て 次 の 入力 に 備え て いま す 。 


MsgBox "指定 し た ファ イル が 見 つか り ま せん 。 再度 入 力 し て 下さ い 。* 
Tex 七 1 。 ex = 『m 
G* 上 1 。 6 ほら 上 正 O 〇 Cu8 


|Lssson3 


、 指定 し た ファ イル が 見 つか り ませ ん 。 再 度 入力 し て < 
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これ で 、 エ ラー 処理 の 完成 で す 、 最 後に エラ ー 処 理 を 付け 加え た コー ド 全 体 を 記 
載 し て お きま す 。 


P ェ riyate Sub Command1 C1icK ( ) 


Dim FName AS S モ エ ュ nd 
Dim FSize As Longd 


FName = Tex て 1 。 FeG 六 上 
On Eror GomTo MSG ミエ ラー 処理 モー ド に 入る 
FS1ize = Fi1eLien (FName ) 
Labe12.Caption = "ファ イル " g gName gs " の サイ ズ は 『" 
g FSize g " バイ ト で す 。 = 
Exxit Sub  ' エ ラー が 発生 し な か っ た と き は ここ で プロ シー ジャ を 終了 


* エ ラー が 起こ る と ここ に シャ ンプ する 
MsgBox "指定 し た ファ イル が 見 つか り ま せん 。 再度 入力 し て 下さ い 。" 
mexx 七 1 。Tmexx も = 『m 
TeGx ヒ 1 。SG ら GE 上 FOCu8 


End Sub 


エラ ー 処 理 ル ー チ ン を 組み 込ん だ ブロ グラ ム の 流れ 





プロ グラ ム 実 行 開始 





の 
I 
I 
5【 
『 千 才 3。 に ププ 【 
に ー 1 モー ド 有 効 和 囲 
* 
I 
I 
= 


ニー ニーーー ーー ニー + エラ ー 如 理 の 実行 1 








Lesson34 エラ ー 処 理 を 使 





エラ ー 処 理 の ステ ー ト メン ト は 、「On Error」 以外 に も いく つか 用 意 さ れ て いま す 。 
また 、 メ ソ ッ ド や 関数 で は エラ ー が 発生 する と 「 エ ラー コー ド 」 を 返す も の も あり ま 
す 。 こ の 場合 は 、Select Case ステ ー ト メン ト な ど を 使っ て 、 エ ラー コー ド に あっ た 
エラ ー 処 理 を 組み 立て る こと が で きま す 。 

エラ ー 処 理 は 、 プ ログ ラム を 安定 し て 動作 させ る た め に 必要 な 処理 で すか ら 、 き ち 
ん と し た エラ ー ト ラッ プ を 設け て 、 品 質 の 高い プロ グラ ム を 作成 し て くだ さい 。 


上 この プロ グラ ム で 、 エ ラー 発生 時 の エラ ー 番 号 を メッ セー ジ ボ ッ クス 
で 表示 し て くだ さい 。 


解答 は 巻末 に 一 


者 馬 ワン ポイ ント アド バイ ス 





Err オブ ジェ クト の Number] プロ パテ ィ は 、 エ ラー が 発生 する と その エラ ー 番 号 
を 格納 し ます 。 エ ラー 番号 に よっ て 処理 を 振り 分 けた い 場 合 は 、 こ の プロ バテ ィ を 活用 
し ます 。 

エラ ー 番 号 と は 、 発 生 し た エラ ー の 種類 を 番号 で 表示 する 機能 で す 。 エ ラー 番号 が わ 
か れ ば 、 ど うい う 理 由 で エラ ー が 発生 し た の か が わか り ま す 。 

例え ば 、 エ ラー 番号 13 は 「 型 が 一 致し ませ ん 」 と いう 内 容 の エラ ー で す 。 番号 と そ 
の エラ ー の 意味 に つい て は 、「 エ ラー 番号 一 覧 ] と し て 付録 に 掲載 し て いる の で 参考 に 
し て くだ さい 。 





日 3 本 アベック と エラ ー 和 還 





誠 け 昌 (Lesson35 ~ Lesson36) 


実行 ファ イル の 
作成 と 配布 















プロ グラ ム が 最終 的 に 完成 し た ら 「 実 行 可能 ファ イル 」 (EXE ファ イル ) に し まし 
よう つ 。 こ の ファ イル 形式 で 保存 すれ ば 、Visual Basic を 起動 せ サ ず に 作成 し た プロ 
グラ ム を 実行 する こと が 可能 に な り ま す 。 


た だ し 、 こ の 実行 可能 ファ イル を 、Visual Basic が イン スト ー ル され て いな い 他 

の バ ソ コン へ 配布 し て も 、 そ の まま で は 動き ませ ん 。 動作 さ せる に は 、EXE ファ 

イル 以外 に も 「 ラ ンタ イム DLL」 と 呼ば れる ダイ ナミ ンク リン クラ イブ ラリ や 、 

その プロ グラ ム が 使用 し て いる 外部 コン ポー ネン ト か 必要 に な り ま す 。 こ の よう な 

場合 は 、 デ ィ ス トリ ビュ ーション ウィ ザー ド を 使え ば 、 配 布 時 に これ ら の 必要 な フ 

ァイル を 自動 的 に 収集 し て くれ ます 。 

之 日 の レッ スン で 解説 する 項目 

ココ フォーム に アイ コン を 割り 当て 、 実 行 可 能 な EXE ファ イル の 作成 方 法 

ココ プロ グラ ム に バー ジョ ン 番 号 を 付加 する 方 法 

コブ プログ ラム の バー ジョ ン 情 報 を 組み 込む 方 法 

コテ ディストリビュー ショ ン ウ ィ ザ ー ド を 使っ て 、 作 成 し た プロ グラ ム を 配布 で き 
る イン スト 一 ルキ ッ ト に する 方 法 








lil 


ii 


こ コ Lesson35 


う Learning Edition 








EXE ファ イル の 作成 


フォ ー ム に アイ コン を 割り 当て 、 実 行 可 能 な EXE ファ イル の 作成 万 法 
を 覚え ます 。 


@ 今回 作成 する プログ ラム 


まり -1\ 付 緑 WLESS 





ファ イル で ) 編集 (E 表示 ) 移動 G⑤ お 気に入り ツ 5 革 








アド ジス | nk。-vBe-iy 付 録 wuEsSoNs5 | | < ラ ェ 所 短 間 


csSSOn さ う 
:lub.ico 


意 Diamondiic 


ーー c Er th2 ico 
その 説 人 launch.exe ファ イル 
明 が 表示 され ま 笛 Launchexe ーー 
onaRyte を 実行 する と … 


E。] Lesson35.vbwy 
上 Main.frm 

E Main.frx 

) 表 | Mssccprj=cc 
Setup.fr m 
E。]| Setup_fr> 
し EEE ICO 


13 個 の オブ ジェ クト | 記 イ ヤ K ュ ー5 


5 





ブロ グラ ムラ ンチ ャ ー 








また: っ グル ナー バグ 手 
c\WINNT\SYSTEM32\WCALCIEEXE II 


4 | ブロ ダム ビン チャ ヤー 
\MWWINNT\SYSTEM32\cdplayer.exe さ 
c\WINNTWSYS YS TE M32notapad eoxe が 起動 す の 
Run | 終了 | 





Lesson ら 5 の 練習 問題 で 使用 し た プロ グラ ムラ ンチ ャ ー を 使っ 


て 、 単 独 で 実行 可能 な EXE ファ イル を 作成 し ます 。 実 行 フ ァイル を 
作成 する こと を 「 コ ン バ パイ ル す る 」 と も いい ます 。 











LesSon35 EXE ファ イル の 作成 


円 コン トロ ー ル と プロ バ パティ の 設定 





r |QSA-25.vDpD] プロ ジェ クト ファ イル を 開く 





| っ 0 ーー 、 ち こい の 7 書式 @〉 デー の XD) 素 行 R) 外す デザ ウラ AD ツーKD 了 アド イ XA) ウィ トウ WO くも ル う DD | 
IE | 
の PR の CR Re SE Ex 















main フォ ー ム を 選択 し 、 プロ パテ ィ ウ ィ ン ド ウ で [lcon] 
プロ バテ ィ を クリ ッ ク し て 【[…] を クリ ッ ク す る 


肖 U 生 層間 ロ 


Imain Form cl | 
門 ー 6 





に に リック 





IIH 
員 

( げ イ ゴリ の 
F ョ |== 

ロ 115 

ロロ - 計 , 


ここ な リック 


アイ コン を 選択 し 、 


[Heart.ic0」 [開く ] を クリ ッ ク 





、 ファ イル の 場所 ①: | (に =sons5 <| 計 | ほ 重 | 





くき ぽ QAA-25.VDp 


この ファ イル は 、 付録 CD- 
ROM の |「Q&A」 
フォ ル ダ に 収録 きれ て い 
ます 。 


ぐ テ Main フォ ー ム 


main フ ォ ー ム は 「 プ ログ 
テム ラチ ランチャー| フォ ー 
IO ン リ シャ クト モ 
グ クス プロ ー ラ で 、main 
(Q&A-251frm) を ダブ ル 
クリ ッ ク す る と 、main フ 
ォ ー ム を 選択 で きま す 。 


の [Heart.ico」 


02 ナオ ゴン プア テオ ル は ほ は 
付録 CD-ROM の 
「Lesson35| フォ ル ダ に 収 
銚 さ れ て いま す 。 





うろ の 
第 9 日 1 時 限 目 実行 ファ イル の 作成 と 配布 





main フォ ー ム の タイ トル バー に ハー ト の アイ コン が 
表示 され る 









サッ 









List1 


同様 に 、SetuD フォ ー ム の [Icon] プロ パテ ィ に 
[Earth2.ico] ファ イル (地球 アイ コン ) を 設定 する 


ー ャ ーー 和 れ た 地球 


くき ら SetUD フォ ー ム 


Setup フ ォ ー ム は [実行 プ 
ログ ラム の 登録 ] フォ ー 
ム で す 。 プ ロジ ェクト ウ 
イア メア ドウ で 、|Setep 
(Q&A-252.frm)] を ダ プ ISDK & DEy6n] 
ルク リッ ク す る と 、Setup 
フォ ー ム を 選択 で きま す 。 












[ファ イル ] メニ ュー の [launch.exe の 作成 ] を 


サッ ク す る 












新 し ル 7 ロジ ェクト AD CN 

| (W 7D シ 5 ェ ト を 間 く の > Cwho 
7 ロジ ェ 2 ト の 追 j6KD)_- 

| 2m>= ト の 折 放 の 

| 7 セ ジウ ト の 上 書き 全 存 め 

| 名 前 を 付け て 7m シ s2 の 保存 (5- 

| sepfrm の 上 書き 保存 人 S) cw 

| 名 前 を 人 四 ナ て setnrm の 保存 






sa 聞 相 選管 E 


5 











喝 EhWKP- CyP 
市 72 の 麗 定 - 





ここ を グリ ワック 


実行 ファ イル の 
ぐ 保 在 


実行 (EXE) ファ イル は 、 
同じ ファ イル 名 で 何 回 も 
コン パイ ル で きま す が 、 
その 場合 は 上 書き 保存 に 
な り ま す 。 


プロ グラ ム を 修正 する た 

びに 、 別 々 の 実行 ファ イ 

ル に し た い 場 合 は 、 フ ァ | 

イル 名 を 少し 変え る か 、 | 
出力 先 の フォ ル ダ を 変更 | 

し ます 。 | 





| 可 存 する 場所 ①: ー』 Lesson35 





保存 場所 を 指定 








HI 
m 
| 


保存 名 を 指定 


に に を プリ ッ ン 







ーーーーーー ツ ーー ツーーーーーーーーーー ニ ーー ニーーーーーー ニ ーーー ニ ーー ペーーーーーーーー ツ ーー ペー ペペ ーーー ツン mW ンー ンー ペン っ い 


Lesson35 EXE フ ァイル の 作成 





る 実行 ファ イル (Launch.exe) が 作成 され る 






Lesson35 











凍 員 
アイ コツ 
ーー 人 Dianondico 2KB アイ コル 
| アイ コン を 選択 締 Et2 co 2KB アイ コソ 
| 9mah ま Weteo 『 


















作成 され た 実行 ファ イル 


1KB Visual Basic Project 
FManfrm __ 5KB Vijsual Basic Form .。 | 











明 単独 で 実行 で きる ファ イル を 作成 する と 、Visual Basic を 起動 し な く て も 、 作 成 
し た プロ グラ ム を フォ ル ダ か ら 直 接 起 動き せる こと が で きま す 。 
まだ た 、 メ イン の フォ ー ム に 組み 込ん だ 子 ま ロン が 。 プ ログ ラム の アン に な り 。 
フォ ル ダ に 表示 きれ ます 。 フ ォ ー ム の アイ コン は 、 プ ログ ラム を タス ク バ ー に 格納 
し た と き に も 表示 され ます 。 





EXE フ ァイル を 作成 する と 、 他 の コン ピュ ー タ に 作成 し た プロ グラ ム を イン スト 
ー ル し て 、 使 うこ と が で きま す 。 イ ンス トー ル す る コン ピュ ー タ に Visual Basic が 
組み 込ま れ て いな い 場 合 は 、 こ の あと に 説明 する 「 デ ィ ス トリ ビュ ーション ウィ ザ 
ー ド 」 を 使っ て 、 関 連 す る ファ イル を いっ し ょ に イン スト ー ル する 必要 が あり ます 。 


者 参 ワン ポイ ント アド バイ ス 





アイ コン ファ イル と は 、 拡 張子 が 「.ico] の 、 専 用 フォ ー マ ッ ト で 作成 され た グラ フ 
ィ ッ ク フ ァ イル で すず す 、。 

Visual Basic の フォ ル ダ に ある [samples] フォ ル ダ に 、 い くつ か の アイ コン ファ 
イル が 入っ て いま す が (オプ ショ ン で イン スト ー ル )、 使 用 し た いも の が な いと き は 自 
分 で 用 意 す る し か あり ませ ん 。 フ リー ウェ ア や シェ アウ ェ ア で アイ コン ファ イル が イン 
ター ネッ ト 上 に か な り 流 通し て いる の で 、 こ れ ら を 使う の も ー つ の 手段 で す 。 ま た 、 ア 
イコ ン を 自作 する 場合 は 、 専 用 の アイ コン エディ タ か が 必要 に な り ま す が 、 こ れ も イ ンタ 
ーネット が 利用 で きる 環境 で あれ ば 、 フ リー ウェ アシ ェ ア ウ ェ ア の サイ ト か ら 人 入手 で き 
ます 。 次 の URL の ホー ムペ ー ジ 「winfiles.Com」 に は 、 た くさ ん の アイ コン ファ イル 
や アイ コン エディ タ が 登録 され て いる の で 、 利 用 し て は いか が で し ょ うか 。 


httDp://WWW.WinfileS.Com/appSs/98/icons.html 


な お 、 作 成 し た プロ グラ ム を 営利 目的 に 使う 場合 は 、 く れ ぐ れ も 著 作者 の 許可 を 得 て 
便 つ よう に し て くだ さい 。 





第 け 日 1 時 限 目 実行 ファ イル の 作成 と 配 P 


HHH HHBH 
HH 


アス スイ /7 // 


ビル タッ ルン の 


AI) Less0n36.vDp 
9 VB6CD 
Lesson36 


う Learning Edition 





バー ジョ ン と 作成 情報 を 設定 する 


バー ジョ ン 番 号 を 付加 する 方 法 を 覚え ます 。 ま た 、 プ ログ ラム の バー ジ 
ョ ン 情 報 を 組み 込む 方 法 も 紹介 し ます 。 





@ 今回 作成 する ブロ グラ ム 














どく ご < 思社 字 \ 





Launch.exe ファ イル の 
プロ バテ ィ を 表示 する と …… 











Launch_exe 
了 フ リカ ー ソ ョ プ 


Less=on3 と 韻 く (⑥) に 
更新 日 時 寺 | L===on3E フイ ッ ーー 
97/| 09/08 午 和 本 Msin frm ーー 
7 aiMsnfrx 送る CD か 
1 サイズ - 23KB EJ 同 ==copr」 切り 取り Cr 
Sstup fr m に 
届 性 ( 府 定 な い ) ee コピ ー) 
ショ ー ト カッ ト の 作成 ⑤) 
前 際 (D) 


名 前 の 変更 ( ゆ 


Launch.exe ファ イル 
の バー ジョ ン 情 報 が 表 





未 で れる 
説明 サン ブル ブロ ヴ グラム ・ ソ フト ウェ アラ ンチ ャ ー 登録 で 


製 戸 舌 1998.11. 





引き 続 さ 、 ラ ンチ ャ ー プ ログ ラム を 使っ て 、 バ ー ジ ョ ン 番 号 を 組 
み 込 の 方 法 と 、 著 作 権 な ご の 制作 情報 を プロ グラ ム に 組み 込 の 方 法 
を 紹 7「 し ます 。 











ンー ドン トン > 


LeSSOn36 Q) 





ィ の 設定 


[ファ イル ] メニ ュー の [launch.exe の 作成 」 を 
クリ ッ ク す る 







新 し し ワリ ロッ ェ ウ NN) 
1 CW 7 ロ ジェ 外 を 開く の )_ 


2 ロジ ェ 9 ト の 追加 KDD - 
フロ ジェ ト の 南 払 (BR 


、 右 7 ロジ =2 ト の 上 書き 保存 


名 前 を 付け て 7 ロジェ 9 ト の 保 存 (BD- 


mamfrm の 上 書き 伴 存 ⑤) 


名 前 を 作 す て manfrm の 人 條 ぬ )- 


5 印刷 PD- 


回 ツウ の 腐 室 U) 


ーー 
ヨコ 


1 D\-\10ka- 付録 \LESSON36\Lesson36 vbp 


CrkN 盾 攻 梓 呈 管 ※ 曰 
3 し 本 に 
Cr むる 
_cwkP 


こと を フリ ッ ツ 









を プリ ロッ ツ 


み [オプ ショ ン 」 ホ タン を クリ ッ ク す る 











に 


実行 可 計 っ ァイル の )f 人 5 





[ 探 存する 場所 大 Lesson:36 <| に 芋 | 
| ファ イル 名 (NND launch sxe 





ーー ツン 番号 “ カリ ウー シッ ーー 
や ャ ー(MD。 マイ ナ ⑪。 此 ツ ョ CR タイ トル (T ナ ILssson36 “ 
- 」 アイ イヤ O ょ msn <| 次 ] 
「 自動 人 夢 KU) ] ' 
種 想 Q 値 > 

| ファ イル のび のぶ ー ー 

会 社名 < >| | 

コッ ド ライ や 5 | 数 で ) 

条件 付き ヤバ イル 3 | 雪 (D> | ae 


、 実行 可能 フル の 作成 | エイ | 











し 使用 し な い ActiveX トロ - 引 に つい て の 情報 を 前 陵 す る (E) 





Liwk。 | キン tw | < | 


キャ ッ セ ル 


ここ を ン リ ロッタ ズ 


| スロ ジジ ナレ ソロ バテ デン] 
ダイ アロ グ ボ ックス が 表示 


され る 





バー ジョ ン と 作成 情報 を 設定 する 


ガ バー ジョ ン 番 呈 


作成 し た プロ グラ ム に 、 
一 連 番 号 を 付け る こと が 
で きま す 。 こ れ が 、[「 パ ー 
ジョ ン 番 号 」 と 呼ば れる 
も の で 、Visual Basic に は 
自動 的 に この 番号 を 付加 
する 機能 が 装備 きれ て い 
まま 。 


ぐ ぎ [コン バイ ル ] タブ 


ドコ ラン パイ オイル | タダ タプ は 、 コ 
ン パ イル の 方 法 を 選択 す 
る と ころ で す 。 特に デラ 
ォ ル ト の 設定 で 、 変 更 す 
る 必要 は な いで し ょ う 。 

Se 


Learning Edition で は 表示 
され ませ ん 。 


第 日 ら 時 限 目 実行 ファ イル の 作成 と 配布 





ア 目 動 イ ンク リ メ ン 
ト 


プロ グラ ム を コン パイ ル 
する た びに 、Visual Basic 
が 自動 的 に [リビジョン ] 
の 番号 を 1 つ ず つ 増 や し て 
くれ る 機能 で す 。 


[バー ジョ ン 番 号 】 の [メジ ャ ー] を 「1」 の まま に 
し 、[ 上 自動 イン クリ メン ト ] を チェ ッ ク す る 


に - フロ ソ ツェ ウッ ト コバ ティ 
実行 可能 ファ 化 の 作成 | | 
| こよ が かう の 侍 呈 ーーーー ニ ニー 700 っ ee 





 w-⑯. マサ ⑪。 此 a2B sfhkp に に 
加 王 定 」 

し 男 動 飛 29 必 RA 回 了 間 議 HHEEYHSRTSHPE 
パー ッ ョ ツ 情 報 EE 3 EE RS 





了 イ JO main マ 


ここ を クリ ッ ク 


[バー ジョ ン 情 報 ] の [種類 ] ボッ クス で 種類 を クリ 
ッ ク し 、[ 値 ] ホッ クス に 次 の 値 を 入力 する 














| t1 - ブロ ジェ ウト J ロ ルー ティ 3 
| 実行 可能 ファ イル の 作成 | イル | ' 
パー ジョ ツ 番 号 の ーッ 2 「 
MD 7 人 0 MEET 4 1 種類 を クリ ッ ク 
E アイ ゴ O ょ msn <| 次 
自動 和 史 KG 5 
ーー ジョ ツン 情報 ae 
種 甘 の 値 y 
っ ァ イル al 初期 バー ジョ ン 。 テス ト 後 修正 あり ] アフ 値 を 入力 
会 社名 二 「 








初期 バー ジョ ン 。 テ スト 後 修正 あり 


サン プル プロ グラ ム ・ ソ フト ウェ アラ ンチ ャ ー 
登録 で きる プロ グラ ム に 制限 あり 。 


や 
コブ 三 
ヒコ 


ふう 和信 力 で 志 た ら [OK ポタ フラ を クリ ッ ク す る 











| 実行 可能 ファ ル の 作成 | イル | 
| が ーッ 番号 アリ サー シッ ーー 
メン ャ ー(M) ィ イ ナ (D- ジン BR) 呈 イ ト HKCD Lesson36 
= アイ ヤル G) lmsn < 靖 
に レ 自動 ング ルド U) 
パー ツウ 情報 ーーーーーーー 2 ' 
種類 の - 億 Cy) 





失 に 逢 1998 1 1 -| 


ゴット ラ 28 本 KC> 
条件 付き アバ イル 引数 ⑥) 





こ ど ご 和 を ン リ ッ ク 





LesSSOn36 un)。 バー ジョ ン と 作成 情報 を 設定 する 





も う 一 度 [OK] ボタ ン を クリ ッ ク し て 、 実行 ファ イ co 
ル を 作成 する 
実行 ファ イル は 、「 実 行 可 
F nm 能 フ ァイル の 作成 ] ダイ 
FR に アロ グ ボ ックス の [保存 
| ー 還 明 馬 則 する 場所 ] ボッ クス で 指 
定 し た フォ ル ダ の 中 に 作 











成 さ れ ま す 。 
2zk 名 を ⑩ 。 lonec ooー(o〔 ニ {用 目 CR ジジ こ を クリ | ここ を クリ ッ ク 
ォ オフ や ョ VO) に つこ 
ファ イル を 保存 し た フォ ル ダ を 開き 、「Launch.exe」 ン ョ ー ト カッ ト 
の ショ ー ト カッ トメ ニュ ー か ら [プロ パテ ィ ] を 選 点 ^ ズー ュー の 表示 


|「 Launch.exe| ファ イル の 
アイ コン を マウ ス の 右 ボ 
の パン リッ クル て て くだ 
さい 。 








AE 3ENKC )U\10ka ー VB6- \ 付 録 \LESSON36 ( 1 
] ファ イ ル (P) 編集 表 坊 ) 移動 (G お 気 | ー 入 し Je) ヘル プ ⑪ | 佐 』 
アド レス | に nk。-yBe- 付録 *LESSON3e | e・ ウマ 特 軍 |%| 





LesSSon3b 









Setup 


E ョ rth2.ico 


等 Hsartico こう 
し avanOIh_eoce こま を 右 ク | リ ツ ク 
アフ リサ ケー ショッ WS し ==s 開く (O) 








還 新 日 時 |] Le=s: クイ ッ ク ピュ ー ア (Q) 
26/09/14 午前 。 un 還 較 還 旨 BE 
Wo 表 ] Main, 送る ① 
・ 講 | MM==c S SO 

サイ ズ : 32KB ら に 本 ltD 
属性 アー カイ ブ setu - ギ -@_ 

ショ ー ト カッ ト の 作成 

月 還 夫 D) 






名 前 の 実 皿 ⑭) 


に ンク リウ ツク 


選択 され た オプ ジェ クッ ト の プロ バテ ィ を 表示 し ます 。 





る 生 
第 9 日 2 時 限 目 実行 ファ イル の 作成 と 配布 


ジョ ン 情 報 ] タブ を クリ ッ ク し て 確認 する 


に っ と っ ルリ リツ 






| 全般 パー ジョ ン 情 報 | 





ファ イル パ バージョン 画 豆 還 し 項目 を クリ ッ ク す 
説明 サン ブル プロ ヴ ダラム ・ ソ フト ウェ アラ ンチ ャ ー 登録 で る と … 
著作 権 測 戸 遥 1998.11. 





レー っ 
EEE の | 1 が 表示 され る 








Il 


閉 作 権 、 プ ログ ラム 配布 の 注意 


自分 で 作成 し た プロ グラ ム を 、 パ ソコ ン 通 信 や イン ター ネッ ト で 配布 す 
る 場合 は 、 著 作 権 の 問題 を 明確 に し て お く 必 要 が あり ます 。 

日 本 の 法律 で は 、 プ ログ ラム (ソー スコ ー ド ) と いえ ども 自動 的 に 著作 
権 が 発生 し ます 。 そ の た め 、 プ ログ ラム の 作者 に 無断 で 勝手 に その プロ グ 
ラム を 販売 し た り 配布 する と 、 法 律 で 前 せら れ ま す 。 

明らか に 他人 の ソー スコ ー ド を その まま 流用 し 再 配布 する 場合 に は 、 必 
ず そ の コー ド の 作者 に 許可 を 得る 必要 が あり ます 。 た だ 、 コ ー ド の | 考え 
方 | や プロ グラ ム の 構造 だ け を 拝借 し 、 後 は 自分 の や り 方 で 1 か ら 組 み 上 
げた よう な 場合 に は 、 許 可 の 必要 が な い 場 合 が あり ます 。 し か し 、 こ の あ 
た り の 線引き も や や ケー スバ イケ ー ス な 所 が あり ます の で 、 心 配 な と き は 
必ず 「 著 作 権 者 へ の 連絡 ] を 怠ら な いよ うに し まし ょ う 。 それ が 無用 な ト 
ラブ ル を 避け る 最良 の 手段 で す 。 

プロ グラ ム を 配布 する 際 は 、 フ リー ソフ ト で あっ て も 、 配布 形態 や 営利 
目的 で の 転載 ・ 掲 載 に つい て 、 自 分 の 立場 を 明確 に する ドキ ュ メ ント な ど 
を 添付 し て 配布 する よう に し まし ょ う 。 





LesSoOn36 un) バー ジョ ン と 作成 情報 を 設定 す 








信 [実行 可能 ファ イル の 作成 ] ダイ アロ グ ボ ックス の 、[ オ プシ ョ ン ] を クリ ッ ク し 
て 表示 きれ る 、|[ プ ロジ ェクト プロ パテ ィ 」 ダイ アロ グ ボ ックス で 設定 レ し た バー ジョ 
ン 番 号 と バー ジョ ン 情 報 は 、 プ ログ ラム を 作成 する 上 で の 情報 を 記録 する の に 使い 
ます 6 

バー ジョ ン 番 号 は 、 プ ログ ラム に 修正 を 加え る た びに 変更 し 、 最 新 の プロ グラ ム 
に は 最新 の 番号 が 割り 当て られ る よう に し て お きま す 。 

プロ グラ ム 開 発 中 は 、 常 に 修正 され た り 機 能 が 変更 に な っ た り し ます の で 、 ど の 
プロ グラ ム が 何 番目 に 作成 し た も の な の か を 、 こ の バー ジョ ン 番 号 で 把握 する よう 
し ます 

バー ジョ ン 番 号 は 、[ メ ジャ ー] [マイ ナー] [リビジョン] の 順に 小さ く な 
っ て いき ます 。 ち ょ っ と し た 修正 で は 、[ リ ビジ ョ ン ]| の 数 字 を 増加 させ ます 。 こ の 
あたり の 数 字 の 使い 方 は 、 自 分 で 決め て か まい ませ ん 。 


アク [自動 イィ インクリメント] に チェ ッ ク を 付け る と 、 コ ン パ イル する た びに 、Visual 
Basic が 自動 的 に [リビジョン | の 番号 を 1 つ ず つ 増 や し て くれ ます 。 

[バー ジョ ン 情 報 ] は 、 プ ログ ラム の 著作 権 や 会 社名 、 補 足 説明 な ど を 記録 し て お 
きま す 。 自分 が プロ グラ ム の 情報 を 把握 し て お く の に 使い ます が 、 ユ ー ザ ー に プロ 
グラ ム の 情報 を 伝え る た め に も 役立ち ます 。 

これ ら の 情報 は 、 フ ォ ル ダ か ら プ ログ ラム の プロ パテ ィ を 使っ て ユー ザー が 自由 
に 見 る こ ど が で きま す 。 


者 馬 ワン ポイ ント アド バイ ス 


設定 し た バー ジョ ン 番 号 お よび バー ジョ ン 情 報 は 、App オブ ジェ クト の プロ バ パティ 
を 使っ て 、 プ ログ ラム で 使う こと が で きま す ,。 フォ ナー ム モ ジュ ー ル デン プ 庄 ト の 人 バ 
ー ジ ョ ン 情 報 」 も 、 こ れ ら の プロ バテ ィ を 使用 し て いま す 。 


< く バー ジョ ン 番 号 の プロ バテ ィ ッ > < く バー ジョ ン 情 報 の プロ バ パティ ッ > 
プロ バテ ィ 名 説明 プロ バテ ィ 名 月 di 

















第 日 ら 時 限 目 実行 ファ イル の 作成 と 配 ッッ 








AN Lesson36.vDp 
(GI VB6CD 
ヨコ Lesson36 


ティ スト リピ ビュ ーション ウィ ザー ド 


ティ スト リピ ビュ ーション ウィ ザー ド を 使っ て 、 作 成 し た プロ グラ ム を 配 
布 で きる イン スト ー ル キッ ト に する 方 法 を 覚え ます 。 こ こ で は 、 
ILesson36.vbp」 の 実行 ファ イル 「Launch.exe」 の 配布 キッ ト を 、 
フロ ッ ピ ー デ ティス ク を 使っ て 配布 する 場合 を 例 に と っ て 説明 し ます 。 





2 ロシェット の 選択 





この 2m ツ > 外 を 、 イン ター ネッ ト 用 Cab ファ イル や 自 アッ 
が 54 な どの 本 が 2 


二 


この が ウサ ー ジ こ 必要 た 本 も お 。 ご 
の を 邊 す し て くだ さ し ぃ [ 発 了 ] を 
辺 する と パー シ す 。 
















メト 名 S) 


逢 の ヤッ ト ア ッ フ " カッ ウー ツジ 1 





| ファ イル 編集 Gy 表示 ) 移 績 お 気に入り ay ヘル プ 9D 中 





作成 し た に プログ ラム を 、Visual Basic が 組み 込ま れ て いな い 他 の 
コン ピュ ー タ で 動作 させ る 場合 は 、 使 用 し た コン トロ ー ル ファ イル 
や | ラン タイ ム DLL」 と 呼ば れる 付属 ファ イル が な いと 、 正 常に 動 
作 し ませ ん 。 

VISua| Basic に 付属 する 「 デ ィ ス トリ ビュ ーション ウィ ザー ド 」 
は 、 作 成 し た プロ グラ ム フ ァ イル を 配布 する た め の キ ッ ト を 、 自 動 
作成 し て くれ る 便利 な ウィ ザー ド で す 。 

ここ で は 、 こ の ディ スト リピ ビュ ーション ウィ ザー ド の 使い 方 を 説 
明 し ます 。 


LeSSOn36 ②。 ディ スト リ ビ ュ ーション ウィ ザー ド 






コン トロ ー ル と プロ パティ の 設定 


1 スタ ー ド トド 」 メニュー か が か がら [ディ スト ドリ ピュ ーション 
ウィ ザー ド ] を 選 点 








lm 較 | ここ を クリ ッ ク 





BZ いや ss 


[参照 ] ボタ ン を クリ ッ ク し 、 プ ロジ ェクト ファ イル 
(LesSOn36.vDp) を 指定 する 


L 和 イス トリ ビュ ー ツ ョ ッ ウィ イザ サー| 


う フロ ジェット の 選択 









に て ダグ リック 


。 。 この っ m%52 ト を 、 イタ ーネット 用 Cab ファ 人 ! や 自動 本 病 セ y げ 92 
過 っ m ゲ ラム な どの 配布 用 の 形式 こ パ サージ 化 し ます 。。 


パッ サー ジ 人 P) 


ー の うと ト の が ケー ツ を 、 インターネ ト サー ドー な どの 配布 
に 本 し ます 


この フジ エト の ウー ゲス 9 フト と 配置 メ 9 う 中 の 名 前 の 変更 、 
モー お 行い ます 。 








ーー ママ ems ーー マー マー 


で っ 


。。 すす 


5 


[ ファ イル の 場所 ①. | コ Lesson36 <| 睦 | に 時 | 












lxl 








| ファ イル を 指定 





0 を 9 。 Iosmo  、)、 | 還 除 @ ョ 圭二 牙 久 | ここ を クリ ッ ク 
ファ イル の 種類 ①: Vsos」 Basic ブロ ジェ リト (evbp) < セツ セル | 











ここ で 説 明 す る 
手順 は .. 


ここ で は 、 お 使い の コン 
ビ ピュー タ に Visual Basic 
6.0 を イン スト ー ル し て い 
る 場合 の 手順 を 説明 し ま 


この ウィ ザー ド を 
ぐ 忠 動 する に は 


Windows95 の タス ク バ ー 
に ある [スタート] ボタ 
ン つ [プログラム] 一 
[Microsoft Visual Basic 
6.0] 一 [Microsoft 
Visual Basic 6.0 Tools」 一 
ほ [ディ スト リピ ビュ ーション 
ウィ ザー ド ] の 順に クリ 
も まま っ 


プロ ロジ ェクト ファ 
ぐ イル を 指定 する 


ディ スト リピ ュー ショ ン 
ウィ ザー ド で は 指定 し た 
ファ イル が プロ ジェ クト 
ファ イル で も 、 自 動 的 に 
実行 ファ イル に 再 コ ン パ 
イル し て か ら 配 布 キ ッ ト 
こ 答 め ま す 。 


ぐ 才 ファ イル の 場所 


[ファ イル の 場所 ] ボッ ク 
ス で 、 フ ァイル が 保存 さ 
れ て いる フォ ル ダ を 指定 
し ます 。 す る と 、 そ の 下 
の ボッ クス に フォ ル ダ に 
人 っ て いる ファ イル の 一 
覧 が 表示 され ます 。 


う 人 9 


第 日 3 時限 目 実行 ファ イル の 作成 と 配布 





久 リア タージ ) デン リッ ツン 8 る 





くく コン パイ ル し て い | MEZZZ5 宮 


な し いい とき は の プロ ジェ ッ ト の 選択 
\My Documents\1IVB6\LESSON36\Lesson36ybp 参照 (B) . 





プロ ジェ クト ファ イル を 


コン パイ ル し た いな いと | に の 2m>52 ト を イター ネッ ト 用 Cab ファ 人 あや 自動 朋 凍 セ 引 722 
き は 、 コ ン パ イル を する に 2 が う ム な どの 配布 用 の 形式 に ウー ジ YE し ます 。 


か どう か の ダイ アロ グ が 
表示 され ます 。[ コ ン パ バイ 





と を アリ ッ ク 


ル 】 を クリ ッ ク し て 、 長 この 2 ジェ 9 ト の パッ サー ジ を 、 作 ー ネ ッ ト サー ドー な どの 配布 
っ 5 1 | サイ ト こ 配置 し ます 。 

新 の 実行 ファ イル を 作成 | 

に て お きま まま 。 ) 


に すろ に は 、 この フシ エト の た め の 実 行 可能 ファ イル 'js』 
ほ ] すき 区 の し て ファ f 失 す か ば か" イル] さ ケ 
中 を や パイ し て くだ さしも ] 





必 [標準 セッ ト ア ッ プ パッ ケー ジ ] を クリ ッ ク し 、[ 次 
へ ] を クリ ッ ク す る 





ぐ ぞ っ 回 目 か ら は ? 


パッ ケー ジ 作 成 の 2 回 目 以 
降 は 、 前 回 作成 され た ス 
クリ プ ト を 選択 する 画面 


ンー ルッ クー の 形式 ⑥) 
5 雪 示 さ TV) こつ 人 








に ここ な ケ を プッ ン 


0 い ヾ ゃ 

ドン 作業 用 フォ ル タ や 作業 用 の フォ ル ダ を 選択 し 、[ 次 へ ] を クリ ッ ク す る 
事前 に 作業 用 の フォ ル ダ 
を 作成 し て お きま し ょ う 。 
[新しい フォ ル ダ ] ボタ ン 
を クリ ッ ク し て フォ ル ダ 
を 作成 する こと が で きま 
す 。「Package」 な どの わ 
か りや すい 名 前 を 付け て 
お く と いい で し ょ う 。 





ドラ イブ を 指定 
Ts = ょ [BANK] ェ 
8 - レ 4 フォ ル ダ を 指定 
ネッ トワ 9 りー が TDD - 1 
新 し し 


ワル が CWD_ | 


| 次 へ @ > - 英 一 一 ーー (ーー デン リッ ツ 









3 う 50 





LeSSOn36 。 ディ スト リ ビ ュ ーション ウィ ザー ド 


Re 区 が チエ の 2 され て いる こ と を 確認 
[次 へ ] を クリ ッ ク す る 


oos 下 の リ スト の う ハ まれ ます 。 こ れ じ ) 
2 0 5 9 02 てく だ 7 

















ぼ \Program Fils=\VB9G ギ \ 
Program Fil==\VB9G\ 
ぼ き Program ilss\V B9G キ 


ソ ョ ノ 
gh も ITg ご で て に mA4 つ の 
か 





もい ルー スツル ソス か 


[ 1.44MB] を 選び 、[ 次 へ ] 


[複数 の CaD ファ イル ] 、 
を クリ ッ ク す る 






時 | 2 に は 」 つの *tF ネ ラ ト 2z 人 (cab) | に まとめ る か 、 補 数 | 
の ネッ ト 2Z ル に 人 | ファ = 分 け て 作 大 する | 


ペン ン 
つめ. osb フッ 8 の 9 イ x う 須 ご 人 が ま す | 


る 必要 が ぶり ます 。 以下 で 連 切 な 7 


Cab ファ イル の 4 フシ ョ ン 
日 一 の Csb ファ イル GS) 


see ここ を 2 リッ ク 
Cab ファ イル の サイ スズ iC 

に な を プリッツ 
ジー スン アテ 。 








[次 へ 」 を クリ ッ ク す る 





イッ メス トー 朋 寺 の 2 イト MTD) 


Lesson35 





タイ トル を 人 入力 


CS ッ グ トナ ッッ ク 





すべ て チェ エック され 
て いる こと を 確認 


イン スト ー ル 時 の タイ トル 「Lesson36」 を 入力 し 、 


< 」44MB で 保存 


この 設定 は 2HD、1.44 
MB の フロ ッ ピ ー デ ィ ス 
ク で 配 部 する 場合 の 設定 
全 ま 。 


た だ し 、 フ ロッ ピー の 状 
態 に よっ て は 1.44MB だ 
と コピ ビー で き な い 場合 が 
あり ます 。 そ の と き な は 、 
[1.2MB] を 選択 し て cab 
ファ イル を 作り な お し ま 
ちまう 。 


ーー 
、 で 褐 数 の Cab 2zf(W) 


Cab ー ル ンー (6 か 





ぐ タイ トル は 自由 


イン スト ー ル 時 の タイ ト 
ル は 自由 に 設定 し て か ま 
いま せん 。 


一 般 的 に は プロ グラ ム の 
名 前 を 付け ます 。 


第 9 日 3 時 限 目 実行 ファ イル の 作成 と 配布 





NN ュー 名 


登録 する メニ ュー の 名 前 
を 変更 し た い 場 合 は 、 
P.358 を 参照 し て くだ さき 
い 。 


セッ ト ア ッ プ 先 
の 変 
セッ ト ア ッ プ 先 を 変更 し 
た い 場 合 は 、P.359 を 参 
際 し て くだ さい 。 


うら 2 








ー ア MO 


| launchexe  D\ キ arowork\Lesson36 $(&ppPath) 
| |YB6JPDLL C\WINNT\SYSTEM32 $(WyinSysPath) 


スタ ー ト メニ ュー の メニ ュー 名 を 確認 し 、[ 次 へ ] を 
ケア リック ずる 


メニ ュー 名 を 確認 
どど を クリ ッ ク 


10 タタ ト ア ッ プ 先 を 確認 し 、[ 次 へ ] を クリ ッ ク す 





この 2 ト PT 各 2z 他 に て いる ? を 実 更 し て 
3382 に 


| 生ずる 2 を 択 し て 、 [セト 7 ッ 7 | 列 の 情報 を 更 し て 


| 

















セッ ト ア ッ プ 先 
を 確認 


ご を クロック 


』 ナ ェ エッ ク を 付け ず に [次 へ ] を クリ ッ ク す る 






し 










この パカ ーッ の セスト は は 


ROL 
セッ ト アッ クウ" する ファ イル の チェッ ク カス を オル | 


こし て < くだ 「 








チェ ッ ク し な い ) 





ここ を クリ ッ ク 





LeSSOn36 @。 ディ スト リピ ビュ ーション ウィ ザー ド 





ウィ ザー ド の 
ぐ ダ 指定 を や り 直 す 


ウィ ザー ド の 指定 を や り 
直し た い 場 合 は 、[ 戻 る ] 
ボタ ン を クリ ッ ク す る と 
前 の 画面 に 戻る こと が で 
きま す 。 


』 [完了 」 を クリ ッ ク す る 





ぇ の フト 名 さく) 





宮 閥 の セッ ト ア ッ フ " ルッ サージ 1 


ここ を クリ ッ ク 


た SS 


9 113 こ の すこ の の リー -2 の ら tt イット イル を 作成 し まし た 。 

ザ 』 了 すそ wwyOr この され る 
サ ホ ー ト ディ イル ウト リ (wwork\Support\launch_BATD) | に が パッチ フィ イ ル が 作成 さ 
れ ま し た 。 この ファ イル 者 使用 する と し くつ か の ファ イル に 変更 加え た 場合 
| に ft ネト ファル を 再 作成 で きま す 。 | 






作成 レポ ボート が 表示 


YWP 










ここ を クリ ッ ク 





作成 され た 「Launch 


イル 細 C 表 GO 本 お に 入 UGy ヘル プ b 


|Zfb2 ロ ww 引 | om ね aa 男 旧 病 斉 昌 | .GXG] の バッ ケー ジ ムッ フー ニッ 

| | 「 パ ッ ケ ー ジ 」 と は 、 配 
布 キ ッ ト の 元 に な る 圧縮 
され た ファ イル や セッ ト 
アッ ププ ログ ラム 一 式 の 





r ex CAB 2CAB | ー s 
アイ コン を 選択 する Support SetuD.exXe launch1 CA launch2 CA | は と で す 。 
と 、 その 説明 が 表示 
され ます 。 [ 
] 
Setup. に t | 
ーー ーー ュ RI や fBEs つ メ 





うら る 


第 9 日 時限 目 実行 ファ イル の 作成 と 配布 


< 革 wt 
が 表示 され な い 
配置 スク リプ ト が まだ 存 
在 し な いと き は 、 こ の ダ 
イア ログ は 表示 され ませ 


ん 。 手順 15 に 進ん で くだ 
さい 。 


うら 全 





[配置 ] ホ タ ン を クリ ッ ク す る 
多 昭 (@)- | 


この 7 ツェ ウ Cab 0 セッ げ アップ” 
| | 7 ロ ゲ う ム な ど 需 用 球 こ ルッ ウー ジ 化 し ます 。 | 
| 





「 ー の フリ ジウ ト の ハッ ウー ジ を 、 ウー ネッ ト サー が ー な どの 配布 
| (に 語 午 し ます ' 9 

| 本 っ 塊 を の 。 リ た ンプ 
配置 D | 


、| 5 の 7 の On の ー ゲ 7I 配 寺 メ 婦 71 の 名 前 の 間 、 
| ー、 お よび 博 上 まま 行い ます 。 








ーー - 王 =」_ wl 
配置 スク リプ ト を 確認 し 、[ 次 へ ] を クリ ッ ク 
する 








以下 の リス ト か がら 配置 メ 婦 フト を 選択 し て くだ さい い 。 


上 ey | 配置 スク リプ ト 
を 確認 


ie リッ ン 

















配置 する パッ ケージ 
標準 の セッ ト ア ッ フ "パージ 1 
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1 ⑯⑮ [フロ ッ ピ ィ デ ィ ス ク ] が 選択 され て いる こと を 
確認 し 、[ 次 へ ] を クリ ッ ク す る 





に ノロ ッ ピ ー デ ィ 
スク ] を 確認 


ここ を クリ ッ ク 


[次 へ ]」 を クリ ッ 





[ 7 | 


1 ブ ビー ドラ イブ を 指定 し 、 





以下 の リス ト か ら 婦 ーー トラ イフ 才 選 択 し て くだ さい い 。 





2H ロ ルート ライ 7YD> 「 2 
em 


「 土 一 する 前 に フォ ー マ ッ ド ii) 


| ^ ル プ | 





ここ を ク グ クリック 





中 





TP 
し て く 
基 を りみ | 


メト 名 GS) 
7H ル 配置 





に リグ 


フロ ッ ピ ー 

くき ドラ イブ 

使用 し て いる コン ピュ ー 
タ の フロ ッ ピ ー ド ライ プ 
の ドラ イブ プ 番 号 と 使用 す 
る フロ ッ ピ ー デ ィ ス ク デ 
ィ ス ク の サイ ズ に 合わ せ 
て 、 ぞ それ ぞ れ 指定 し て く 
だ さい 。 


プ ブロッ ビ ピー に 入り 
くき 切ら な いと き は ? 


も し フロ ッ ピ ー に 入り き 
ら な い 場 合 は 、 次 の フロ 
ッ ピ ー を 大 れる よう に ウ 
イィ ザー ド が 妥 求 し て きま 
す 。 ディ スク に は 分 割 さ 
れ た 形 で 収録 きれ ます 。 





第 日 3 時 限 目 実 f ファ イル の 作成 と 配布 





指定 し た ドラ イブ に フロ ッッ ピー ディス ク を セッ ト 
[OK]」 を クリ ッ ク す る 


』 


セグ" 2 光 ー ディ 22 の 作成 を 開始 し ます 。 デ ィ ス 9 2 の 1 振 入 し て くだ さい 。 











こ を クリ ッ ク 
ーーーーー ーー mm | コピ ー が 開始 され る され る 


代 コ 


launch1 CA&B 
work' か が から AA\ へ 


列 


み 0 レポ ー ト が 表示 され る 


l 還 81ssson36.vbp - 配置 | ホー ト 


j 学 work\setup.exe 科 デ イス リウ 1 に 工 " - し まし た 。 
work\SETUP.LST 考 テ イス 5 1 | に 牙 一 し まし た 。 

work\launch1 CAB 才 デ イィ スウ 1 | こ に 上 ー し まし た 。 
町 work\launch2CAB デ イィ スウ 2 に コビー し まし た 。 






am =ma 岬 |=Ee20z テ 
み | 作成 され た ファ イル 


ファ イル 編集 表示 移動 〇 お 気 に , 議 較 
アド レス に 9 ょ * 当ら レレ こ ド | 








3 イン ナチ 『D (A2 


表 縛 。 | 2rTw Ne We 4 


launch1CAB setup.exe Setup.|st | アド レス ニッ ム * ww こつ マ ビッ マッ ft 


5 Il 35 イン チ FD (AO っ 
2 | 
| 当 
launch2CAB 
デイ 27 ゼ 








3 ぅ 56 





























LesSSOn36 ②。 ディ スト リ ビ ュ ーション ウィ ザー 


ディ ス ド り ビュ エー ジョ ン ウ ィ イザー ド を 使う と 、 必 成 した プログ ラム を 了 配布 する た 
め に 必要 な ファ イル を 、 目 動 的 に 解析 し て キッ ト と し て まとめ て くれ ます 。 そ し て 
| 圧縮]」 と いう 技法 を 使っ て ファ イル サイ ズ を 小さ くし 、 配 布 し や すく し て くれ ま 
性 

この ファ イル は 、Windows98 の イン スト ー ル で 使わ れ て いる 、|Cab」 ファ イル 
(キャ ビ ネ ッ ト フ ァイル ) と いう 形式 の ファ イル と し て 作成 され ます 。 

まだ 、 デ ィ イス トリ ビュ ー シ ョ タ ウィザー ド は 。 プ ロダ タ 和 ふ を コロ ンピュータ に だ イン 
スト ー ル する た め の 「 セ セットアップ プロ グラ ム | を 、 配 布 キ ッ ト に 組み 込み ます 。 
この セッ ト ア タプ ジリ セグ ラム は 、。 Visual Basic を コロ ンピュータ に イン シン ストール し た 
と き に 使っ た も の と 同じ よう に 、 プ ログ ラム を イン スト ー ル する フォ ル ダ の 指定 な 
ど が 行え ます 。 

配布 キッ ト に 各 ま れ て いる コン トロ ー ル 用 の DLL フ ァイル や 、 Visual Basic の ラ 
ンタ イム DLL フ ァイル は 、 そ れ ぞ れ VWindows の フォ ル ダ に イン スト ー ル する 必要 
が あり ます が 、 セ ッ ト ア ッ プ プロ グラ ム は これ ら を 自動 で 行っ て くれ ます 。 

Visual Basic で 作成 し た プロ グラ ム を 配布 する 場合 は 、 こ の ディ スト リ ビ ュ ー シ 
ョ ン ウ イィ ザー ド を 使う こと を お 和 手 め し ます 。 


「 Launch.exe」 用 の セッ ト 
アッ ププ ログ ラム が 起動 


イン スズ トー ル 先 の 
指定 も 行え る 


マン バリ 7 あま シノブ シア 用 















fsqemdopuh 
4 の 
らむ 
Ragedr 
に 
較 ] 
hos ま 
で hede32 間 
- 時 Newworte の 
- ゴ wwrmo ユ づ が (Cek amu 
っ 時 Orsoie for Wandowz NT を 
ー ゴ Nrfes ドル ト の 新吉 作 作 Sso Sox onies Reoer (Rn 名 
Ros メト を 間 く - 器 wane SDK Taois ( 共 ) 


= お 気に入り の 








ディ スト リピ ビュ ーション ウィ ザー ド で 作成 で きる 配布 キッ ト は 、2 種 類 あ り ま す 。 

1 つ は 、 今 作成 し た よう に 、 プ ログ ラム を 他 の コン ピュ ー タ に イン スト ー ル する 
た め の 配 布 キ ッ ト で す 。 も う 1 つ は 、 イ ンタ ーネット の WWW ・FTP サ ー バ か ら ダ 
ウン ロー ド で きる 形態 の 配布 キッ ト で す 。 い ずれ も 、 最 初 は 「 パッケージ | ボタン 
で 、 配 布 フ ァイル を パッ ケー ジ に し て か ら 、 配 布 キ ッ ト を 作成 し ます 。 


この 配布 キッ ト で は 、 イ ンス トー ル す る プロ グラ ム 専 用 に 、 ス ター トメ ニュ ー を 
作成 し て くれ ます 。 初期 設 定 で は 、 ス ター トメ ニュ ー の [プログラム] メニ ュー の 
中 に 、 プ ログ ラム と 同名 の メニ ュー 項目 を 作成 し ます 。 

この メニ ュー 名 を 変更 する に は 、 メ ニュ ー 項 目 を クリ ッ ク し て か ら [プロ パテ ィ ] 
ボタ ン を クリ ッ ツ し ます 。 そし て 、 新 し いえ メニ ュー 名 を 設定 も ます 。 











日 本 3 スタ ト た ュー 


1 メニ ュー 項目 を 
アワ リッ ツ 
日 計 20 め 54 


< mas 二 ぶ ー 一 叉 | に こ を クリ ッ ク 




















メニ ュー 名 を 入力 








Lesson36 …。 ディ スト リピ ビュ ーション ウィ ザー 


省 。。) ニ イン スト ー ル する プロ グラ ム と ラン タイ ム DLL の イン スト ー ル 先 を 変更 し た い 場 
合 は 、「 セ ッ ト ア ッ プ 先 | 画面 で 、| セット アッ プ 先 」 を リス ト ボ ックス か ら 選 択 す 
る か 、 任 意 の フォ ル ダ 名 を 入力 し ます 。 





セッ ト ア ッ プ 先 を 
指定 












| launch exe DeOwerLeg 1) 
yB6JPDLL C\WINNT\SYSTEM32 


ディ スト リ ビ ュ ーション ウィ ザー ド を 使う と 、 イ ンス トー ル 先 の コン ピュ ー タ へ の 
プロ グラ ム 登 録 ま で 行っ て くれ る 、 配 布 キ ッ ト の 作成 が 行え ます 。 

WindowsS に スタ ー ト メニ ュー と レジ スト リ が 採用 され て か ら 、 こ れ ら の 作業 は 科 
単に 行え な いよ うに な っ て いま す の で 、 で の ディ スト リピ ビュ ーション ウィ ザー ド を ぜ 

ひ 活 用 し て くだ さい 。 

この セッ ト ア ッ プ プロ グラ ム で イン ス トー ル さ れ た プロ グラ ム は 、 コ ント ロー ル バ パ 
ネル の 「 ア プリ ケー ショ ン の 追加 と 削除 ] か ら 削除 し ます 。 


[ / ョ ン の 追加 と 朋 溢 の プ [ 1?X| rp 計 表 2 
、 インストール と 削除 ーーーー Sa 剛昌 


は 、 サン スト ー0U] を 4 シキ イン | 


AOCD 

adobe 信 crobat Rader 3 

Adobe PhotoDeluxe for 9 9ー 30 
Adobe Photoshop 50J 

DirectX トラ イ が 
JUSTSYSTEM/ フ りー ショ ソ ①⑰ 追 加 と 削除 


ーー TOSO telliPom 
Microso 黄 Office 97. ssd Edi 
MicrosofW Visual Studio 60 Enter oo。 EdMAion (日 本 語 


隊 sy る z フ リッ ー ピー に OK ここ を クリ ッ ク 
ショ ン を クリ ッ ク 一 BR8sd 


第 9 日 3 時 限 目 実行 ファ イル の 作成 と 配 に つ 








者 馬 ワン ポイ ント アド バイ ス 





Visual Basic の ラン タイ ム DLL、「VB6JP:dll」 や IMSVBVM60.dll」 は 、 
VisSual Basic が イン スト ー ル され て いな い コ ンピュータ で 、Visual Basic で 作成 し 
た ブ プログ ラム を 動作 させ る た め に 必要 な ファ イル で す が 、 フ ァイル サイ ズ が と て も 大 き 
く 、 こ の ら つ で 「1.5MB」 も の 容量 が あり ます 。 そ の た め 、 セ ッ ト ア ッ プ プロ グラ ム 

わ せ 、 配 布 キ ッ ト の サイ ズ が 圧縮 状態 で も 1.5MB に な っ て し まい ます 。 

一 度 こ れ ら の ファ イル が イン ス トー ル さ れ た コン ピュ ー タ に 、 作 成 し た プロ グラ ム を 
イン スト ー ル する 場合 は 、 次 か ら は 「VB6JP.dll] [MSVBMG0.dll| の 5 つの ファ イ 
ル は 、 配 布 キ ッ ト に 入れ る 必要 は あり ませ ん の で 、 配 布 キ ッ ト の チェ ッ ク を は ず し て 、 
ファ イル サイ ズ を 小さ く で きま す 。 






層 | SETUP1.EXE |\Program Files\VB98\ 



























ト dBmOME RI ぼ Program Files\VB98\ -。 1 6 1 ここ で 配布 キッ ト の 
| 急 YB6JPDLL 、 C\WINNT\SYSTEM32 | 。。 し 内 容 を 調節 する 


C\wINNT*SYsTEM32 














記 1 U ビ (Lesson3 フ ~ Lesson38) 


ActiveX コン ト 
ロー ル を 作る 


















VISual Basic6.0 で は 、 ツ ー ル パレ ッ ト に ある コン トロ ー ル を 組み 合わ せ て 、 新 
し い カ スタ ムコ ント ロー ル を 作成 で きま す 。 こ れ ら は 「ActiveX コン トロ ー ル 」 
と いう 新しい 機能 の コン トロ ー ル と し て 他 の プロ グラ ム か ら 利 用 で きま す 。 


この レッ ズン で は 、 い くつ か の コン トロ ー ル を 使っ て 、 独 自 の ActiveX コン トロ 
ー ル を 作成 し 、 イ ンタ ーネット の ホー ムペ ー ジ に 組み 込ん で 使う 方 法 を 紹介 し ます 。 


な お 、Learning Edition で は すでに 登録 済み の ActiveX コン トロ ー ル を 組み 込む 
こと は で きま す が 、ActiveX コン トロ ー ル 自体 を 作成 ・ 登 録 する 機能 は あり ませ 
ん 。 こ の 日 の レッ スン は Professional Edition を 使用 し て 下さ い 。 


之 日 の レッ スン で 解説 する 項目 

ココ ActiveX コン トロ ー ル の 作成 方 法 

ココ ActiveX コン トロ ー ル の 動作 確認 の 方 法 

ココ ActiveX コン トロ ー ル を 生成 する 方 法 

ココ ActiveX コン トロ ー ル の HTML へ の 組み 込み 方 法 

ココ ActiveX コン トロ ー ル を HTML ファ イル と と も に Web で 公開 する 方 法 

















』 





ActiveX コン トロ ー ル の 概要 


ActiveX コン トロ ー ル を 作成 する に あたっ て 、 ど の よう な 特徴 が ある の か 把握 し て お 
夫 本 し あう つう 。 





[ActiveX| は 、Microsoft 社 が 開発 し た 新しい テク ノロ ジー で す 。 こ の テク ノロ 
ジー を 使っ た コン トロ ー ル が 、[「ActiveX コ ント ロー ル 」| で す 。「ActiveX コ ント ロ 
ー ル 」 は 、 従来 「OLE コ ント ロー ル 」| と 呼ば れ て いた コン トロ ー ル を 改良 し 、 い ろ 
いろ な 場面 で 利用 で きる よう に 作ら れ て いま す 。 

これ まで の Visual Basic 用 の コン トロ ー ル は 、Visual Basic で し か 利用 で きま せん 
で し た 。 し か し 、ActiveX コン トロ ー ル は 、| ActiveX」 に 対応 し て いる アプ リ ケ ー 
ショ ン で あれ ば 、 ど れ で も 利用 で きま す 。 

現在 で は 、Visual Basic 以外 に 、[ Visual C++」 「Microsoft Ofice97] | イン ター 
ネッ ト エ クス プロ ー ラ (Ver3.0 以降) 」 な ど が ActiveX コ ント ロー ル を 使え る 環境 
に あり ます 。 た と えば 、[「 タ プ 付 き ダ イア ログ ボッ クス コン トロ ー ル 」 は 、 Visual 
Basic の コン トロ ー ル で す が 、Excel97 の マク ロロ 言語 で ある | Visual Basic for 
Application| か ら も 利用 で き 、 ま た 、「ActiveX コ ント ロー ル パ ッ ド 」 や 
[FrontPage98」 を 使っ て 、HTML 文書 に この コン トロ ー ル を 組み 込み 、 イ ンタ ー ネ 
ッ ト エ クス プロ ー ラ か ら 利 用 する こと も で きま す 。 

この よう に 、ActiveX に 対応 し て いる アプ リケーション や 環境 な ら 、1 つ の コン 
トロ ー ル を それ ぞ れ で 使用 で きる の が 、ActiveX コ ント ロー ル の 特徴 で す 。 





され て いる 四 





| HTML に 組み 込ま れ て いる 








み 
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これ まで 、 Visual Basic で プロ グラ ム を 作成 する と き は 、 新 し い プ ロジ ェクト を 
迄 ぶ と き に | 様 準 EXE]| を 選ん で いま し た 。 ActiveX コン トロ ー ル を 作成 する と き 
は 、 こ の 画面 か ら 「ActiveX コ ント ロー ル 」| を 選び ます (P.365 参照 ) 。 あ と は 、 こ 
れ ま で 行っ て きた プロ グラ ム 作 成 と 同様 の 手法 で 、 コ ント ロー ル の 配置 や プロ パテ 
ィ の 設定 で ユー ザー イン ター フェ イス を 作成 し 、 メ ソ ッ ド と ステ ー ト メン ト な ど で 
処理 を 記述 し ます 。 ま た 、 プ ログ ラム で は 単独 で 実行 可能 な EXE フ ァイル を 生成 し 
まし た が 、ActiveX コ ント ロー ル で は コン トロ ー ル ファ イル (OCX ファ イル ) を 作 
成 し ま す 。 こ れ ら は 、Visual Basic の ツー ル ボ ックス に ある 各 コ ント ロー ル 類 と 、 
同じ 種類 の ファ イル で す 。 

ActiveX% コ ント ロー ル を 作成 する 場合 は 、「UserControll| オブ ジェ クト に 、 既 存 
の コン トロ ー ル を 組み 合わ せ て 作成 し ます が 、 標 準 EXE プ ログ ラム の 作成 に 比べ て 
いく つか の 制限 が あり ます 。 以 下 は 、 筆 者 が 調べ た 限り の 制限 事項 で す 。 詳 し く は 、 
オン ライ ン ヘ ルプ な ど を 参照 し て くだ さい 。 


① コ ント ロー ル 以 外 の オブ ジェ クト を UserControl オ ブ ジ ェクト に 配置 する こと は 
で きま せん 。 ツ ー ル ボッ クス を 右 ク リッ ク し 、 シ ョ ー ト カッ トメ ニュ ー か ら 「[ コ 
ン ポ ボー ネン ト 」| を 選ぶ と 表示 され る [コン ポー ネン ト ] ダイ アロ グ ボ ックス の 、 
[挿入 可能 な オプ ジェ クト ] タプ ブ に 一 覧 表示 され て いる オブ ジェ クト は 利用 で きま 
せん 。 

(②UserControl オ ブ ジ ェクト に は 、 メ ニュ ー コ ント ロー ル を 組み 込め ませ ん 。 

③HTML か ら 利 用 する ActiveX コン トロ ー ル で は 、 フ ォ ー ム を 表示 で きま せん 。 

(OLE コ ン テ ナ コン トロ ー ル を UserControl オ ブ プ ジ ェ クト で 使用 で きま せん 。 


作成 し た ActiveX コ ント ロー ル は 、ActiveX に 対応 し た アプ リケーション で 、 コ 
ント ロー ル を 利用 で きる 環境 で あれ ば 、 どれ で も 使用 で きま す 。 

Visual Basic で は 、 作 成 し た ActiveX コ ント ロー ル を ツー ル パ レ ッ ト に 追加 し 、 
別 の プロ グラ ム で 再 利 用 で きま す 。Excel97 や Word97 な ど 、Office97 の アプ リ ケ ー 
ン ョ ン で は 、 そ て それぞれ の マク ロ 言 語 (VBA) の 中 か ら 利 用 で きま す 。FrontPage98 
や FrontPage Express を 使う と 、HTML ド キュ メン ト 内 に ActiveX コン トロ ー ル を 
埋め 込み 、 イ ンタ ーネット エク スプ ロー ラ で 操作 で きま す 。 

Visual Basic で 生成 され た OCX フ ァイル は 、 こ れ ら の アプ リケーション の 、 
ActiveX コン トロ ー ル を 組み 込む 機能 の 中 か ら 、 自 動 的 に 呼び 出す こと が で きま す 。 
また 、 他 の コン ビュ ー タ や Web サ ー バ に 配置 し て 利用 する こと が で きま す 。 

Visual Basic で 作成 し た 標準 EXE プ ログ ラム は 、 独 立 し た プロ グラ ム に な っ て い 
る だ た め 、 他 の アプ リケーション な ど で 利 用 する こと が で きま せん 。 一 方 、ActiveX 
コン トロ ー ル は 、 コ ント ロー ル と いう 形態 な の で 、 他 の 開発 環境 で 自由 に 利用 で き 
る と いう 、 可 搬性 と 再 利用 性 を 持っ て いま す 。 

プロ グラ ム を | 部品 ] で 作成 し て お け ば 、 実 現し た い 機 能 に 合わ せ て 部 品 を 組み 
合わ せ て いく こと が 可能 に な る の で 、 プ ログ ラム 開発 や Web コ ン テ ン ツ の 作成 が 効 
率 的 に な り ま す 。 
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スロ ッ ト マ シン コン トロ ー ル の 作成 








HH 還 田 
HHH [| HHH ActiveX コン トロール の 作成 方 法 を 習得 し ます 。 
ル ん らら S$ ゞ の 22 
@ 今回 作成 する プロ グラ ム 
5 (アリ | EE 5 製 
0 ロ 品 ' 





アイ コン ファ イル を 
4 つ 重 ね る 
口 還 


Stop ボタ ン を 追加 する 
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XLearnind EditiOn 


科 単 な スロ ッ トゲ ー ム を 、ActiveX コン トロ ー ル と し て 作成 し ま 
す 。 実際 に ActiveX コン トロ ー ル を 作成 し な が ら 、 コ ント ロー ル の 


作成 方 法 を 勉強 し ます 。 

この コン トロ ー ル ほ 、 ザマ コシ トー ル や > 4 オ つ の トラ シンプ 
の マー ク を 交互 に 表示 させ ます 。 コ マン ド ボ タ ン を クリ ッ ク す る と 、 
表示 が 停止 し ます 。 
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湯 コン トロ ー ル と プロ バ パティ の 設定 


[ファ イル 」 メニ ュー の [新しい プロ ジェ クト ] を ンダ ' 
選択 し 、[ActiveX コン トロ ー ル ] を 選択 する Learning 不可 


Learning Edition で は こ 
の 表示 画面 は で ませ ん 。 








新規 作成 | 民 存 の ファ f』 | 最近 使っ た ファ イル] 


ロタ ーー し 4 mm 





標準 EXE ょ Ac 


、 
、 
ms 還 [ 
* 中 ' ー テ ーー デ を ク | ヽ ク 
テ る | に で ジ 
7299-m ッ 99 こ ド 「 
リィ ザー フネ ー 


) 7 2 


2n シ = 外 。 カリ ウー シッ 2 ドキ ュ ル ト DI ド 4 も ウト Exe カリ ウー | 
| 
本 GO - 千 | の 用 | [開く ] を クリ ッ ク 


「「 次 回 か ら こ の デザ ロ が ポス を 表示 し な し Xi 


フ プロバ ティ ヴィン ドウ で [( オ プ ジ モ タ ト 名 )] の 人 


を | Slot に 変更 する 


プロ ジェ クト ウィ ンド ウ で プロ ジェ クト を 選択 し 、[( プ 
ロジ ェクト 名 )] プロ バ パティ を 「SlotGame」 に 変更 する 











プロ ジェ クト を 選択 







貴 - 間 ユー ザー 必 還 - ル 
| Slot (Slot) 


ee ここ を ダブ ルク リッ ク 
[SlotGame」 と 入力 


ロフ ジェット ) 語 較 EE に 
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ActiveX の 
く プ 保存 名 


ActiveX コ ント ロー ル で 
は 、|「Forml.frm」 と いう 
フォ ー ム が 保存 され る 代 
わり に 、「xxx.ctll] と いう 
UserControl が プロ ジェ ク 
ト フ ァイル と いっ し ょ に 
保 在 きれ ます 。 


プロ ジェ クト の 
ぐ プ 保存 


ActiveX コ ント ロー ル を 保 
存 し た 後 、 必 要 が あれ ば 
プロ ロジ ェクト ファ イル を 
保存 し て くだ さい 。 [保存 
する 場所 ] ボッ クス で 、 
プ ォ ル ゲ を 指定 し て くだ 
さい 。 


名 前 才 付 け て ファ イル の 1 存 








ファ イル 名 (8D: 
ファ イル の 種類 ① 


SlotG ョ me cl 






義和 








[標準 ] ツー ル バ ー の [上 書き 保存 ] ホ タ ン を クリ ッ 
ク し 、 名 前 を 付け て プロ ジェ クト を 保存 する 











幸い e me - Microsoft yijsual Basic [ テ サ 放 
Jp イル (F) 編集 (E) 表示 CD JH シェ 9 ト P) 書式 ( 〇 ) 
| lb クリ ッ ク 





ヨ 可 避 世 画 


[SlotGame.ctl」 
と 入力 


人) 工 久 | [保存] を クリ ッ ク 


キャ ン セ ル ま 」 
へ ルナ (H) | 「 





ツー ル ボ ックス の [Image] 上 剛 を クリ ッ ク し 、 
フォ ー ム 上 に イメ ー ジ コン トロ ー ル を 1 つ 配 置 する 






ニー プリ リック 


て の まま ここ まで 


Slot UserControU = 1 ロ | 「 1 


人 人 トコ 
ww : 
jo 
| | w 本 

き 還 
- 涯 お 人 
肌 蘭 呈 


フッ ンプ 





[標準 ] ツー ル バ ー の [コピ ビー] ポタ ン を クリ ッ ク し 、 
装 けけ て [貼り 付け ] ポタ ン を クリ ッ ク す る 


Microsoft yisual Basic | デザ イリ | 「 コ ピー] を クリ ッ ク 
[貼り 付け ) を クリ ッ ク 









表 必 回 % 晶 伺 邊 で 
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メッ セー ジ に 対し て [は い ] を クリ ッ ク し 、 コ ント 20 
ロー ル 配 列 に する er 

コン トロ ー ル を コピ ー す 
"RSP RFPSRRP SRD5 和 aa る と 、|[ コ ント ロー ル 配 列 」 
に な り ま す 。 コ ント ロー 
ル 配 列 で は 、 最 初 の ( コ 
ビー 元 の ) コン トロ ー ル 
名 に () を 付け て 配列 の 
要素 (番号 ) を 加え た も 
の が 、 コ ント ロー ル 配 列 
の コン トロ ー ル 名 に な り 
っ ます 。 


トロ ー ル を あと ら つ 作成 し 、 そ れ ら を すべ て 重ね る 名 に 使わ れる の で 、 変 数 
で コン トロ ー ル に アク セ 
ス す る こと が で きま す 。 














0 同じ 位置 に オブ ジェ 
4 つ 重 ね た イメ ー ジ ベク ト を 重ね る に は 
05- の 0 同じ 位置 に オプ ジェ クト 





を 正確 に 重ね る に は 、 マ 
ウス で 移動 させ る より も 
[書式 | メニ ュー を 利用 す 
る と 便利 で す 。 


重ね た い オ プ ジ ェ クト を 
志 択 し 、[ 書 式 ] メニ ュー 
の [整列] から 2 番 目 の 
[中 央 ] を 選択 し 、 中 央 に 
揃え た 後 、 再 度 [書式 ] 
メニ ュー の [整列] か ら 
今度 は 5 番目 の [中 央 ] を 


ーー ゝ */ に な 選択 し て 、 上 下 の 同 じ 位 
プロ バテ ィ ウ ィ ン ドウ で [Image 1 (0O) Image] を 全う 
選択 する っ た り と 重なり ます 。 









由 Fn 『 3 SS 誠 ド 中 + 1 
PPU 年 ]JEID ) 書式 ⑨ デポ ッ か ⑩) 実生 旬 9-D ダイ 7 ゲラ 4⑨ ウー 


1 





5 に 
局 じす イス に 摘 え る 
ロト に 人 わせ る (D) 






Image1 (0D) Imag= 








の 書式 〇 ) デバッグ '①) 実行 Q⑥) 条 9-⑪D ダイ 974 の ケル 





* 


が > 
二 同じ 92 に 揃え る > る 中央) 


Da ョ t ョ Format 店 の tcsbes 
DatalM=mbsr 語 。 た Ge 
衣 上 FOO の Wa 
主夫 き の ER 
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』《)} プロ バディ ャ ウィ ン ルド ウ で IPlcturel プロ バテ ャ 
に 「Misc34.ico] ファ イル を 設定 する 


JH バテ イー Images1 () 





IImage1 (D) Imags ッ | 
、 全体 | 項目 l 


] LEDrag ods 
LEDrop Mods 


ここ を ジリ ッ ク 






「1 
「1 」 


を クリ ッ ク 


ぐ Misc34.Go 


この ファ イル は 、 付 録 
CD-ROM の |Lesson37」 
フォ ル ダ に 収録 きれ て い 
まま 。 


この ファ イル を 
選択 


nl [開く ] を 
ーー クリ ッ ク 





目 5 [Visibple] プロ バテ ィ の 値 を [True] に 変更 





ーー Images | 
_ 生 性 | 項目 中 | 


[True] に する 







Whats ThisHslplD U 
Width HI 
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み 手順 1 一 1 ら と 同様 の 操作 を 行い 、 各 イメ ー ジ 
コン トロ ー ル に 次 の 値 を 設定 する 







コン トロ ー ル 名 [Picture] [Visible] 


mage1() 
mage1@ 
mage1③ 





に た スタ る の シルバ リフ 


その まま こと ご まで 
ドラ ッ グ 








プロ バテ ィ ウ ィ ン ド ウ で Caption] プロ パテ ィ < コマ ンド ボタ ン 


』 





の 値 を 「Stop」 に 変更 する を 選択 
マー ニン こ ニ ーー ーー EE PRTREEEE この 操作 を 行う 前 に 、 作 
| っ, TI 抽 成 し た コマ ンド ボタ ンコ 
| ' ント ロー ル が 選択 され て 
[Command1 CommarndBiutton ・ Il いる こと を 確認 し て くだ 
全体 | 項目 史 ] | さい 。 









ここ を ダブ ルク リッ ク 
[Stop」 と 入力 


| | &H8UUHnnnF& 
Fa ほ = 

Stop 
Causesyalidation Trus 





| Default F ョ == 
DisablsdPicturs (な し ) 
Won ュー ーー な s い 
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15 ツー ル ボ ックス の [Timer] 酵 を クリ ッ ク し 、 
フォ ー ム 上 に タイ マー コン トロ ー ル を 配置 する 


の ルズ 


くき タイ マー を 選択 
この 操作 を 行う 前 に 、 作 


6 プロ パテ ィ ウ ィ ン ド ウ で [Intervall プロ バテ ィ 
上 の 値 を |「100」 に 変更 する 











成 し た タイ マー コン トロ | バテ イー Timer1 
ー ル が 選択 され て いる こ 了 “ | 
と を 確認 し て くだ さい 。 Timer1 Timsr <」 | 





ここ を ダラ ルク リッ クウ 
400」 こ とこ 太 用 





| ョ Slot(General)-(Declarations) 


| | (General) マ | Te ーー Nero w | 








Dim F1ag AS8 Tnteger 
Dim Mode As Boo1ean 


ョ Slot Timer1 -Timer 


ーー ペーーーーー ツ ツーーーーーーーー ン ーーーー ツ ツー 


エ F Faq = 0 mhen 





ーー ペーパ ーー ボー ププ ーー ーー ツー ボツ ーー プー パーツ ーーー パーーーーーーー ツ ーーー バ ーーーーー ーー ババ ーーーーーーーー ツ ーー 


T エ mage1 (0 ) . び is1ib1e = T エ ueG 

T エ maqe1 (1 ) . び is1b1e = Fa1se 

T エ maqge1 (2) .V1s1ib1e = Fa1se 

Tmage1 (3 ) . び isib1e = Fa1se 

Flag = 1 

下 lseTF Flag = 1 Then 

T エ mage1 ( 0 ) . び isib1e = Fa1se 

= ニ エエ uG 


T エ mage1 ( 1 ) . び isib1e 





S 
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T エ mage1 ( 2 ) . び isib1e = Fa1se 
T エ maqde1 ( 3 ) . び isib1e = Fa1se 
Flag = 2 
正 lseTF Fl1ag = 2 "Then 
T エ maqge1 (0 ) . び is1ib1e = Fa1se 
T エ made1 (1 ) . び isib1e = Fa1se 
T エ maqe1 ( 2 ) . び モエ s1b1e = FT エ ue 
T エ made1 (3 ) .V び isib1e = Fa1se 
Flagd = 3 
下 1se エ F Flaq = 3 Then 
T エ made1 (0) . び 1sib1e = Fa1se 
エ mage1(1) .V び isib1e = Fa1se 
T エ mage1 (2 ) . び 1sib1e = Fa1se 
T エ made1 ( 3 ) . び 1s1ib1e = エエ ue 
Flag = 0 
End エモ 


ョ Slot.Command1-Click 


ま 


| |Command1 <| |Iciick <| | 


_Privae Sub Command1 C1ioCk ( ) 
| TF Mode = True Then 
エ ュ me 1 . エ ロモ GrYa1 = O 
Mode = Fa1se 
Commmand1 .CaD 上 On = "SS ヒ a エ ヒ 『 
下 1se 
エ ュ imer1 . エ ロモ Ga1 = 100 
Mod@G = エエ u@G 
CommanQd1 .Cap モ 上 ュ 1on = "『SEOp" 
End TE 
End Sub 











ーー ーー ツー ーー 


| | UserControl マテ | | In itialize マ | | 
Piyate SuD USG エ CO 〇 On モエ O 〇 1 エロ エモ ヒュ a1 エ ze( ) 

Flag = 1 

Mode = エエ u@G 
 nd Sub | 
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※ UserControl の コー ドウ ィ ン ド ウ を 表示 する に は 、 フ ォ ー ム と 同様 に マウ ス で 
コン トロ ー ル や オブ ジェ クト を ダブ ルク リッ ク す る か 、 プ ロジ ェクト ウィ ンド ウ 
の [コー ド の 表示 ] ボタ ン を クリ ッ ク し ます 。 


この プロ グラ ム は 、 す で に アニ メー ショ ンプ ログ ラム (Lesson18) で 使用 し た テ 
クニ ッ ク の 応用 で す 。 タ イマ ー コ ント ロー ル の Timer イ ベン ト が 発生 する た びに 、 
4 つ 配 置 し た イメ ー ジ コン トロ ー ル の Visible プロ パテ ィ を 切り 共 え 、 表 示す る イメ 
ー ジ を 切り 替え て いき ます 。 


コー ドウ ィ ン ド ウ の 宣言 セク ショ ン (General) に 、 変 数 Flag を 宣言 し ます 。 こ 
の 変数 は 、 現 在 表示 し て いる イメ ー ジ コン トロ ー ル の 状態 を 把握 する の に 使用 し ま 
す ぁ 

また 、Mode と いう 変数 も 宣言 し ます 。 こ の 変数 は 、 タ イマ ー コ ント ロー ル ( の の 動 
作 状 態 を 把握 する の に 使用 し 、 デ ー タ 型 は 論理 型 (Boolean) で 宣言 し ます 。 


Dim Fl1ag As Tnteger 
Dim Mode As Boo1ean 


タイ マー コン トロ ー ル の Timer イ ベン ト プ ロ シー ジャ に 。 イ メー ジコ . ン トロール 
の 表示 切り 替え 処理 を 記述 し ます 。 変数 Flag の 値 を 調べ 、 イ メー ジコ ント ロー ル の 
Visible プロ パテ ィ の 値 を 切り 替え ます 。TLImage1(0) だ け 表 示す る に は 、LImage1(0) 以 
外 の イメ ー ジ コン トロ ー ル の Visible プロ パテ ィ を False に 設定 し ます 。 そ し て 、 次 
の 表示 に そなえ 、 変 数 Flag の 値 を 「1| に 設定 し ます 。 

この 処理 を 4 つ 設 定 す れ ば 、Timer イ ベン ト が 発生 する 毎 に 、 順 番 に イメ ー ジ が 
表示 され ます 。 


ActiiveX コ ント ロー ル が 起動 し た と き は 、 イ メー ジコ ント ロー ル の スロ ッ ト は 動 
作 し て いる 状態 (Mode = True) な の で 、 最 初 は 「Stop」 の 処理 を 行い ます 。 

タイ マー コン トロ ー ル の 動作 を 決め る の は 、[Intervall プロ パテ ィ で す 。 こ の 値 
を 「0|] に する と 、 ス ロッ ト の 動作 は 停止 し ます 。 


エエ Mode = True Then 
1mer1 . エ ロモ 上 @ ェ Ya1 = 0O 


次 に 現在 |「True」 に 設定 され て いる 変数 Mode に 動作 が 停止 状態 に ある こと を 示 
す |False 」 を 代 人 和信 し ます 。 


Mode = Fa1lse 
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最後 に 次 の ボタ ン の 動作 が わか る よう に 、 コ マン ド ボ タ ン の [Caption] プロ パテ 
ィ を |Start」 に 変更 し て お きま す 。 


Command1 . ご ap 上 On = "SS ヒ a エ エセ ヒ " 


|Else」 以降 に は 、「[Start」 ボタ ン が 押さ れ た と き の 動 作 を 記述 し て お きま す 。 上 
記 の |「Stop] ボタ ン の 動作 と まっ た く 逆 の 処理 を 行い ます 。 つ まり 、 ス ロッ ト の 動 
作 を 開始 きせ る た め に [Intervall に 「100」 を 入力 し 、 変 数 Mode を 「True」 に 設 
定 し 、 コ マン ド ボ タ ン の [Caption] プロ パテ ィ を [Stop」 に 変更 する わけ で す 。 


1Se 
1mer1 . エ nm モ erva1 = 100 
MoQde = エエ u@G 
Command1 . ご ap 上 1on = "SEop" 
end エモ 


人 UserControl の 起動 時 の 初期 化 処理 は 、UserControl オ ブ ジ ェクト の Initialize イベ 
ント プロ シー ジャ で 行い ます 。 これ は 、 フ ォ ー ム の Load イベ ント プロ シー ジャ と 同 
じ よ うな 使い 方 を し ます 。 
コン トロ ー ル で は 、2 つ の 変数 を 初期 化す る た め に 使用 し て いま す 。 変数 Flag は 、 
コン トロ ー ル デザ イン 時 に 、HImage1(0) が 最初 に 表示 され る よう に 、[Visible] プロ 
パテ ィ を 設定 し まし た 。 し た が っ て 、2 番 目 の イ メー ジ Image1(1) か ら 動 作 す る よう 
に 設定 し て いま す 。 


P エ ュ ゞ a ヒ G SuD US8 ら て COn 上 エエ O1 エロ エモ ヒュ a ョ 11ze ( ) 


Flag = 1 
MoQdiG = エエ u@G 
End Sub 


いい 以上 で 、 コ ント ロー ル が 完成 で す 。 コントロール の 配置 対象 が フォ ー ム か ら 
UserControl と いう オブ ジェ クト に 変わ っ た だ け で 、 あ と の 操作 は 標準 EXE プ ログ 
ラム の 作成 と まっ た くい っ し ょ で す 。 

次 の レッ スン で は 、 新 し い フ ォ ー ム に この コン トロ ー ル を 組み 込ん で 動作 きせ る 
方 法 を 紹介 し ます 。 


ActiveX コン トロ ー ル を 作成 する の は 、 標 準 EXE ファ イル の 作成 と ほとん ど 変 わ 


り ま せん 。 単 独 で 動作 する プロ グラ ム と ほとん ど 同 じ 機 能 を コン トロ ー ル 化し て 持っ 
て お く こ と も で きま す 。 
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レア 
Ulimllll 
HHH HHHHHH 
LTVI 


ActiveX コン トロ ー ル の 組み 込み と テス ト 


ActiveX コン ト ロー ル を 組み 込 お 方法 と 動作 を 確認 する 方 法 を 覚え ま 
す 


O 





リア スス マ /7 // 


う /。| 


今回 作成 する プロ グラ ム 











| テ の 1 541 6 ーーーーーーー we 
GEPq @ ロ ②③ る 9 曰 ぬ 品 ロ | 
1 ツク mr 
1 トラ ンプ の マー ク が 
スロ ッ ト マ シン の よ 
うに 回 転 し て いる 


[StOD] ボタ ン を ク 
リーザ ほる どど マー クジ 
の 回 転 が 止 まり 、 ボ 
タン が [Start」 に 
秋 わ る 





内 


コン トロ ー ル 








| = に 7 人 
放 ー ア Yo 5: 表示 本 お 基 に 入り ^ ル フ e 。 訂 軒 


GE @ 呈 9 る 回 加 人 AS 


| 合 「 ア FL ス le] were m Files\VB98\Slothtml マ ] | リク g]e・ 





2 LesS0n37.Vhp 





ペコ Lesson37 
IStart] ボタ ン を 
の リック する と 、 

回 転 を 再開 する 







X Learning Edition 





IT 


前 回 の レッ スン で 作成 し た ActiveX コン トロ ー ル 「SlotGame」 


を 、Visual Basic 上 で 動作 させ ます 。 
また 、 コ ント ロー ル の 生成 を 行い ます 。 
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" 邊 動作 テス ト の 操作 


※ [SlotGame.vDbp」 を Visual Basic で 読み 込ん で くだ さい 









』 [標準 ] ツー ル バ ー の [開始] ボタ ン を クリ ッ ク す る 


(に を ン リッ リン 


最初 だ け [プロ ジェ クト プロ パテ ィ ] ダイ アロ グ が 
表示 され る の で 、[OK] ボタ ン を クリ ッ ク す る 





デパ が ッ が ] 


この ツェ 外 の 実行 を 間 始 する と き の 動作 
や ヤ ポ ーネット が 作成 され る まで 待 村 する QO 
r 24 衝 ほ 間 和 ま se "= 調 


ログ うつ 4 を 開始 する (P> 
| 証 
(ブラ ウザ で 7 の URL を 間 <(B) 


ーーーーーーーーーーーーーーーーーーーーーーー 


に レ 使用 中 の アサ す に 表 二 する XLD 





ここ な を リック 


久 タ ブラ ウザ が 起動 し 、 コ ント ロー ル が 動作 する 





」 5 eo 5 本 お 気に入り ーー ' 蘭 軒 
- ら 人 @ 1 a QA⑨ ロ ロ | 








ぐ |SlotGame.vDD」 


この ファ イル は 、 付 録 
CD-ROM の 「Lesson37」 
フォ ル ダ に 収録 され て い 
ます 


ダイ アロ グ は 最初 
だ け 


この ダイ アロ グ ボ ックス 
は 、 次 回 か ら は 表示 され 
ませ ん 。 


ぐず 動作 の 確認 


プロ アラ ム ん を 実行 し 、 ラ 
ォ ー ム 上 の [Stop] ボタ 
デリ ッ ク す る と 。 そ ぞ 
の 上 で 回 転 し て いる トラ 
ンプ の マー ク が 止ま り 、 
ボタ ン が [Start] に 切り 
替わり ます 。 [Start] ボタ 
ン を クリ ッ ク す る と 、 マ 
ー ク の 回 転 が 再 開 さ れ ま 


O 
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Visua| Basic に 戻り [標準 ] ツー ル バ ー の [終了 ] 
ボタ ン を クリ ッ ク し て 終了 する 


(Q) が (D) 実行 GR) りー(0) 


EE) 〔』 





上 


3 し 











と 利 





ここ を クリ ッ ク 


朋 組み 込み の 操作 


[ファ イル ] メニ ュー か ら [SlotGame.ocx の 作成 ] 


を 選 和 応 
す ここ を クリ ッ ク 



















較 nlotGame - Microsoft Visual Basic も ああ 基 
7fME) 編集 ED 表示 W) ny ェクト P) 書式 デハ ッ ク \D) 実行 CD 2 リ -⑪) デ 人 グラ AD ケガ 


新 し し ワロン ジェ ウ KD CrrN | * 日生 | 本 菅 ロ 。 
」 室 2m シ テト を 間 く (の). crto mm 本 記 
| 7m シ =2 ト の 追 p(D) ] ーーー 
フ 2m シ > 外 の 前 放 (@) 
回 ポジ 2 ト の 上 書き 保存 
名 前 を 付け て ) や シェ カト の 保存 (⑧- 
名 前 を 付け て SitGsms cli の 保存 <@). 
| hp CwFP 
| 回 9 の 定 D。 


も サン ナッツ 


[実行 可能 ファ イル の 作成 ] ダイ アロ グ で 、[ オ プシ ョ 
ン ] を クリ ッ ク し 、 バ ー ジ ョ ン 情 報 を 設定 する 





に E オ プシ ョ ン | を 
リッ クシ 
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バー ジョ ン 情 報 
の 設定 
設定 方 法 の 詳細 に つい て 
は 、Lesson36 を 参照 し て 
バー ジョ ン 情 報 を くだ さい 。 


| 理 行 可能 フ & の 作成 | "| 
- が ーッ 番号 ーー ーー ョ ッ ー 
メル ャ ー(D マイ ナ (⑪D- Ws タイ トル CD em 
「 P p el ロロ 


レ 自動 イ ? 小 (U) 
パー ジョ ゾ 情 報 
種 の 












ファ イル び 請 
会 社名 
ゴッド ライ 8 1 雪 C) 生計 
奈 件 付き エバ イル 3 1 雪 (D | 

に レ 使用 し な い Activex ルト HH 中 こ つい て の 情報 を 月 時 する ) 





新しい プロ ジェ ク 
ト の 追加 


[標準 |] ツー ル バ ー の 「 プ 
ロジ ェクト の 追加 ] ボタ 
ン を クリ ッ ク し 、[ 標 準 
EXE] を クリ ッ ク し ます 。 


標準 EXE を 追加 する と 
LE プロ ジェ クト グル ー プ | 
ウィ ンド ウ の 様子 は 以下 
の よう に な っ て いま す 。 
MFJ あ ア Sr5EETTT 
E] し コ 
Project1 (Project1) 
ゴー 人 フォ オーム 
史 難 Form] (Form1]) 
- 直 SlotGame GSlotGame_ybp: 
=- 層 9 ユー ザー ヤル 還 - ル 
首 Slot ⑤ 人 lotGame ct 














[コン ポー ネン ト ] 
ぐ タイ アロ グ 


[コン ポー ネン ト ] ダイ ア 
ログ ボッ クス を 表示 する 








In-k | デ ず 人 サ | 失 入 可能 な わ ツ > クト | [ に は 、 ツ ー ル ボッ クス を 
PagsNavbsr DTC 10 Type Library 9 E 三 nmT | "ママ 1/ 3 の 右 ボ タ ン で ク 1 
oss = トー- ト ッ ク し 、 シ ョ ー ト カッ ト 
Raal&udio ぬ ctrysX Control Library TT 大 福 | メ Sa ーー [ se 9 ポ ボ ーー 不 

ツ SlotGame | = ] w 
ae 豆 た 名 ント |] を クリ ッ ク し ます 。 
VB 6 Application Wigard HH 過 賠 
VB 6 Dsta Form Wsard 吾 上 


VB 6 MSChart Wizard 
VIDTC1 10 Type Library マ 
人 5 の 。 | 


Actrya Sstup Controi Lbrary 
場所 " C\WHNNT\System32\asotr is ocx 





ング も ッッ プ 
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ツー ル ボ ックス の 


の 2Y 
ツ 変化 


ActiiveX コ ント ロー ル の デ 
ザイ ン ウ ィ ン ド ウ が 開い 
て いる と き は 、 ツ ー ル ボ 
ックス の コン トロ ー ル ボ 
タン は 使用 で き な い よう 
に な っ て いま す 。 


デザ イン ウィ イン ドウ を 閉 
じ る と 使用 可能 に な り ま 
まこ 





Ne PT で と YNS 094 の oo は rte ua 














ツー ルポ ックス に 
SIOtGame が 組み 


込ま れる (ボタン 名 
は [Slot]) 


ソール 2 ス で ISlo せ 1 夫 ダ ジ を クウ クリック し 、 
フォ ー ム 上 に Slot コン トロ ー ル を 配置 する 


と を グリ ロッ ン 


= 案 その まま ここ まで 
E ドラ ッ グ 


[標準 ] ツー ル バ ー の [開始 ] ボタ ン を クリ ッ ク し て 、 
プロ グラ ム を 実行 させ る 
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旧 Visual Basic 50 で は 、 作 成 し た ActiveX コン トロ ー ル の 、 単 独 で の 動作 チェ ッ ク 
は で きま せ ぜん で し た 。 そ の た め 、 コ ント ロー ル の 動作 確認 を する だ め に 、 プ ロジ ェ 
クト に 標準 EXE プ ロジ ェクト を 追加 し 、 こ の フォ ー ム に コン トロ ー ル を 組み 込ん で 
動作 きせ て いま し た 。 し か し 、Visual Basic 6.0 か ら は 、 作 成 し た ActiveX コン トロ 
ー ル の 動作 テス ト は 、 ブ ラウ ザ を 使っ て HTML に 組み 込ん だ 状態 で の 動作 チェ ッ ク 
が で まあ よう に な り ま し た 。 
コン トロ ー ル を 作成 し て 、[ 標 準 ] ツー ル バ ー の [開始 ] ボタ ン を クリ ッ ク す る と 、 
一 番 は じ め だ け | デパ ッ グ 」 の 設定 ウィ ンド ウ が 開き ます 。 こ こ で 、 プ ラウ ザ で の 
表示 設定 を 確認 し て [OK] ボタ ン を クリ ッ ク す れ ば 、 そ の まま イン ター ネッ ト エ 
クス プロ ー ラ で ActiveX コン トロ ー ル の 動作 チェ ッ ク が 行え ます 。 


み 作成 し た ActiveX コ ント ロー ル を 他 の プロ グラ ム に 組み 込む に は 、 一 度 コ ント ロ 

ー ル の 作成 を 実行 し ます 。 

ActiveX コ ント ロー ル を 、 外 部 ファ イル (.OCX) と し て 生成 する に は 、EXE プ 
ログ ラム の 作成 と 同様 、Visual Basic の [ファ イル | メニ ュー か ら 選 択 し て 実行 し 
ます 。 こ の と き 、 メ ニュ ー の 名 前 が |xxx.ocx の 作成 」 に 変わ っ て いま す 。 メ ニュ 
ー を 選ん だ ら 、 あ と は EXE フ ァイル の 作成 と 同様 に 、 バー ジョ ン 番 号 や ヤ や バージョン 
情報 を 組み 込ん で 、 作 成 を 実行 し ます 。 

ActiveX コ ント ロー ル を 作成 し た ら 、 新 し い プ ロジ ェクト を 標準 EXE で 用 意 し ま 
す 。 そ し て 、 ツ ー ル ボッ クス の 「 コ ン ポ ー ネ ン ト 」 で 、 そ の コン トロ ー ル を 追加 し 、 
フォ ー ム に 配置 し ます 。 


ActiveX コン トロ ー ル の ファ イル 名 は 、 初 期 設 定 で は プロ ジェ クト ファ イル の 名 前 
が 使わ れ ま す 。 作成 し た ocx ファ イル は 、Visual Basic の ツー ル ボ ックス に 組み 込 
) こ と が で きる の で 、 他 の プロ グラ ム か ら も 自由 に 使う こと が で きる よう に な り ま す 。 





る 馬 ワン ポイ ント アド バイ ス 


作成 し た ActiveX コン トロ ー ル を フォ ー ム に 配置 する と き は 、 必 すず UserControl の 
編集 (デザ イン ) ウィ ンド ウ を 閉じ て か ら 行 っ て くだ さい 。 作成 中 の ActiveX コン ト 
ロー ル が 表示 され て いる と 、 フ ォ ー ム の ツー ル バ パレ ッ ト に は 、 そ の コン トロ ー ル は 表示 
され ませ ん 。 





第 10 日 時 限 目 ActiveX コン トロ ー ル を 作 ッ ク 


UI 


HH HH 
E 


ActiveX コン トロ ー ル を HTML に 組み 込む 


ActiveX コン トロ ー ル の HTML へ の 組み 込み 方 法 を 覚え ます 。 ま た 、 
ActiveX コン トロ ー ル を HTML ファ イル と と も に Web で 公開 する 方 
法 を 知り ます 。 





ル ら sS$ の 22 





ーー HTML ファ イル 





」 ァ fa 





Stop ボ タン を 押す と 、 停止 し ます 。 


] スペ ー ド : や や ラッ キー 

] イヤ: アン ラッ キー 
や | | 2 クラ 燥 アン ラッ キー ・ 
= 本 Lesson38 NE コロ P Te に 陸 PE 


XLearnind Edition 


作成 し た ActiveX コン トロ ー ル 「SlotGame.ocx」 を 、 イ ンタ ー 
ネッ ト エ クス プロ ー ラ 4.01 に 付属 する FrontPage Express を 使 


っ て 、HTML 文書 に 組み 込み ます 。 
HTML 文書 で は 、 他 の HTML タグ と いっ し ょ に 記述 で きま す 。 


あら か じ め 、ActiveX コン トロ ー ル を コン パイ ル し て お いて くだ 
さい 。 
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" 表 操作 方 法 


| FrontPage Express を 起動 する 


FrOntPage 
ぐ FXD「eSS 


FrontPage Express は 、 
Microsoft 社 が 無償 で 提供 
し て いる 、 イ ンタ ー ネ ッ 
ト エ クス プロ ー ラ 4.01 に 
同 梱 き さき れ て いる 、HTML 
作成 ソフ ト で す 。 こ の ジフ 
フト を 使え ば 、 科 単に 
ActivVe ベ コン トロ ー ル を 
HTML に 組み 込む こと が 
で きま す 。 


FrontPage Express を 起動 
する に は 、 タ スク バー の 
[スタ ー ト | メニ ューー 
| の ッッ ゲト ラム | っ 
[Internet Explorer」 一 
[FrontPage Express] を 
順に ク リッ ク ヒデ すま す 。 






| 入 ファ (0 人 表示 移動 G 振 入 @ 書式 ニュ ーー _ 表 @y ウト 2 の ZD ョ ーー 軸 
KW 引 Is p コ シッ | 導 ぁ 業 ィ せ 時 時 本 生生 所 所 便 
Dee ) 下島 っ 長男 回 て っ BOY 










2 秒 | Nuw| ノ 2 


と 昌 < ぐ き HTML の 

み 次 の よう な HTML を 作成 する 1 
HTML を 作成 する 方 法 に 

ゴブ 0O 二 FV DO 重い PO フーMD 7 2 の 200 7 = 二 | 刻 を 参照 し て くだ さい 。 


「 林 を に ここ ッ ク | な の 本 み Ui 『 っ 中 ま に 所 全 本 | 
| ロ ほ 回 @& 思っ 呈 固 ロロ とこ Bolv We 「 


EC 


Strop ボ タン を 押す と . 停止 し ます 。 


' ー ハ ー ト : 超 ラッ キー 
| スペ ー ド : や や ラッ キー 


] ダイ ヤ : ア ン ラ ッ キ ー 
| クラ ブ : 超 アン ラッ キー 


| 








第 10 日 3 時 限 目 ActiveX コン トロ ー ル を 作る 





ぐ * [SlotGame.Slot」 


あら か じ め ActiveX コン 
トロ ー ル を コン パイ ル し 
て いな いと 、[SlotGame 
Slot」 は この リス ト に は 表 
示さ れ ま せん 。 


< ぐ 才 スク ロー ル バ ー 


目的 の コン トロ ー ル が 見 
つか ら な いと き は 、 ス ク 
ロー ル バ ー を スク ロー ル 
し て 探し て くだ さい 。 


[挿入 | メニ ューー [ほか の コン ポー ネン ト ] 一 
[ActiveX コン トロ ー ル ] を 順に クリ ッ ク す る 





-VB6-1\ 付 緑 \LESSON38\Lesson< 





IXc1LelI ii す IT 

Cy) 移 二 KG) 攻 : 了 あ N0 呈 書式 〇 ) ツー ル MCD 表 @ ぬ ) ウィ トウ へ MADD 
水平 線 (①) 
記号 G く ヵ . 
コア 小 (MD 


ヒデ テオ). 
ハッ ク ゲ ラウ ッ ト サウ ッ ト tD。 
ー ファ (PD_ 
WiebBot ポー ネッ NNWD_ 






















> Java アフ ルッ ド 
プラ ゲイ P) 
PowerPcmt アニ ネー ショ "KO). 


ニダ ンジ リッ ク 


s+ フォ ー ム ナブ ィ ー ル トド D) 


マー キー(E) _ 
HTML マー アッ フ XHD。 
メ ゲ タロ) 


nf が ーッ 200- 


リス ト ボ ックス で [SlotGame.Slot] を 選択 し 、 
[OK]」 を クリ ッ ク す る 










ーー う H バテ イイ R) | 


ダル 。 


Th 電 ! 空 ミ 
| 〇 も ject [ ] 1 Se 
V J9GAppWisardSubWizard | K | ボ ダダ 5 を 
VJDataFormWizardctIWWard U 

] プリ リック 





才 筐 G@)- 















| 記 FrontPage Express -「D\ GENI ャ 10ks-VB6- 1\ 人 付録 \LESSON38YLesson36 htm = 

- オ 221MF) 編集 E) 移 二 'G) 持 入 ① 書式 ②) ツー が D 表 Q ウィ 7 オウ QO へ MGD = | 
権 。 ~ 引 IMsp ン 2 >| A^ gr7ZUu 渦 先生 地上 三 宰 

ロロ 層 加 避 % 皿 の っ 人 甘 還 回 る と っ こ の | WW 


スロ ッ ト ゲ ー ム | 


ーー ツーーー ペ ーーーmーー ペ ーー ーーー マ ーー 


ドド ニー ニー ニー ドニー ニーー ニ ーーー で ーーーーー ニ ーーー ニー ニー ニー ニー ニー ニー ニニ ーー ニニ ニー ニニ ニー ニー ニー ニー ニー ニー ニー 


HIML に コン ツン トロール 
が 挿入 され る 








ーー ニニ ニニ ーー ニニ ーー ニー ニニ ーーー ニー ニー ニーー ニ ーー ニー ニー ニー ニーー ニ ーー ニー ニー ニー ニー ニー ニー ニニ ニニ ニー ニー ニニ ニー ニニ ニニ ーー ニー 


Stop ボ タン を 押す と 、 停止 し ます 。 


ハー ト : 超 ラッ キー 
スペ ー ド : や や ラッ キー | 
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< HTML を 「Slot.htm」 と いう 名 前 で 保存 する 


ーーーー 
+ 仁 gd 3 
・ ーー 








記 和 | [保存] を クリ ッ ク 





キャ ッ セ ル 





導 Ne Paes M 1 intarrvwt F。r っ 
ファ イル 人 F〉 編集) 艇 エ <Y) 移動 G) お お気 に 入 *kA) へ ルプ 
=・ ニー・ 人 人 ロロ 避 の 品々 いふ 人 あ 中 
UW10ks-VB6-1W 付 康 wWLESSON38wSLOT HTM 


ドレ | を ] D* GENKOU 
スズ スロット ゲー ム | 


ファ イル の パス 
を 指定 





L 





電 
1 


Stop ポ タン を 押す て と. 本 止 し ます 。 


ー ト : 編 ラッ キー | 
スー ニード: や や ラッ キー | 
ダ ィ イヤ: アン ラッ キー 


クラ プ : 直 ア ン ラ ッ キ ー 


E ] て 1 エエ ュー タ 


くき HTML の 保存 


ツー ル バ ー の [上 書き 保 
在 ] ボタ ン か 、[ フ ァイル ] 
メニ ュー の [上 書き 保存 ] 
を クリ ッ ク し ます 。 


く ぐ WWW ブラ ウザ 


HTML フ ァイル や 、 イ ン 
ーネット で ホー 
ジ を 見 る ソフ ト を WWW 
プラ ウザ と 時 び ます 。 


ActiveX コ ント ロー ル を 表 
示 で きる プラ ウザ は 、 イ 
ンダ ーネット エク スロ 
ー ラ (バー ジョ ン 30 以 降 ) 
だ け で す 。 Netscape 
Navigator で は 表示 で きま 
せん の で 、 福 意 し くだ 
さい 。 


第 10 日 3 時 限 目 ActiveX コン トロ ー ル を 作る 








』 











作成 し た ActiiveX コ ント ロー ル を 、HTML に 組み 込む に は 、<object> と いう タグ 
を 使用 し ます 。 こ の タグ は 、 オ プシ ョ ン に 「id| と 「classid」 を 持ち ます 。 

これ ら は 、< ぐ object> タグ で 組み 込ま れ た も の が 、ActiveX コ ント ロー ル で ある こ 
と を ブラ ウザ に 認識 させ る た め に 付け られ る も の で す 。 そ し て 、 こ れ ら は 私 た ち が 
勝手 に 付加 する も の で は な いた め 、ActiveX コ ント ロー ル を HTML に 組み 込む に は 、 
専用 の ツー ル が 必要 に な り ま す 。 

FrontPage Express は 、 Microsoft 社 が 自社 の ホー ムペ ー ジ で 無償 で 提供 し て いる 、 
ActiveX コ ント ロー ル を HTML に 組み 込む た め の 専用 の エディ タ で す 。 こ の ソフ ト 
を 使え ば 、 簡 単に ActiveX コ ント ロー ル を HTML に 組み 込む こと が で きま す 。 


< く Ob も ]@c 七 cC1ass1d="C1s1d: 59BED5A-4B8F-11D2-8C3A-525400DAEBA0" 
a11gn="base1ine" border="0" width="320" height="240"> 
く / 〇 も わら @C ヒ > 


<object> タグ は 、 通 常 の HTML タ グ で す 。 し た が っ て 、HTML に 組み 込ま れ た 
ActiveX コ ント ロー ル も 、]PEG イ メー ジ な ど と 同じ よう に HTML タ グ を 使っ て レ 
イア ウト する こと が で きま す 。 ま た 、ActiveX コ ント ロー ル を 表示 する ペー ジ は 、 
HTML タ グ を 使っ て 装飾 する こと が で きま す 。 


<html><head> 

く me ヒ a h 上 上 の -Gdu ユ で = "Con 上 Gn モ ヒー エッ De "で On モ Gn セ = "上 G*x 七 /h 上 mm : Char エ SG 
= メー8] ユ 18『"> 

<me モ ta name="GENERATOR" COnEGn ヒ = "M エ LC て 〇 SOF 七 て エ On ロ 上 Pade ExxpD エ GS8 
。 り デ ッ > 

く < ヒュ 上 1eG>Nevw PagdG</ ヒ ュ モ 上]1@6> 

</head> 


くわ od bgCo1o エ ="『 井 C0C0C0『> 
< く dd エ で a11dn= "で CGnG エ "> く CGn 七 G エ > 
<tab1e border="2" ce11paddingd="8"> 
も まっ 
< く モ dQ bdCO1O エ ="『 井 808000"> 
く Eon ヒ Co1o エ ="#FFFF00" size="6"> ス ロッ トゲ ー ム </Eont> 









< く / モ d> 
プア 攻 記 か 
く / モ ab1@> この 値 は 状況 に より 変化 し ます 
く /CGn 七 G エ >< く / モ エマ > 






く D a119n= "で CGn も G エ "> 
< く <ob]Ject class1d="C1s1d: 5E9BED5A-4B8SF-11D2-8C3A-525400DAEBA0" 
a11gn= "base1ine" border="0" width="320" height="240"> 
く / 〇 もら @GC ヒ ></p> 















っ う 
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<p a1ign="center">Stop ボタ ン を 押す と 、 停 止 し ます 。</ ゎ > 


くせ で a11 エ 9n= "で CGn も G エ "> く ご CGn 七 G エ > 


一 度 HTML に ActiveX コ ント ロー ル を 組み 込ん だ 後に 、Visual Basic を 使っ て 
ActiveX コ ント ロー ル を コン パイ ル し 直し た 場合 は 、ActiiveX コ ント ロー ル パ ッ ド 
で HTML へ の 組み 込み を や り 直 す 必 要 が あり ます 。 こ れ は 、 コ ント ロー ル を コン パ 
イル する た びに 「classid」 の 値 が 変化 する か ら で す 。 こ の 、 再 組み 込み 作業 を 行わ 
な いと 、 プ ブラ ウザ は ActiveX コ ント ロー ル を 正常 に 表示 で き な く な り ま す 。 

作成 し た ActiveX コ ント ロー ル と 、 HTML に 組み 込ん だ ActiveX コン トロ ー ル は 、 
完全 に 同じ 物 に な る よう に し て くだ さい 。 

また 、Visual Basic で ActiveX コン トロ ー ル を 変更 し た 場合 、WWW ブラ ウザ な 
ど で そ の ActiveX コ ント ロー ル を 開い て いる と 、 同 じ フ ァイル 名 で ActiveX コン ト 
ロー ル が 生成 で き な く な り ま す 。 必ず 、 同 じ 名 前 の ActiveX コン トロ ー ル が 使用 さ 
れ て いな いこ と を 確認 し て か ら 、ActiveX コ ント ロー ル の 生成 作業 を 行っ て くだ さ 
い 。 


独 目 に 作成 し た ActiveX コ ント ロー ル を 、 組 み 込 ん だ HTML と と も に Web で 公 
開 す る 場合 は 、 コ ント ロー ル の 所 在 を 明記 し て お く 必 要 が あり ます 。 

ActiveX コ ント ロー ル を 組み 込ん だ HTML が ブラ ウザ で 読み 込ま れる と 、 ブ ラウ 
ザ は 使わ れ て いる ActiveX コ ント ロー ル を 自動 的 に ダウ ン ロ ー ド し ます 。 こ の と き 、 
コン トロ ー ル の 所 在 が 明記 され て いな いと 、 コ ント ロー ル の ダウ ン ロ ー ド に 失敗 し 、 
ActiveX コ ント ロー ル が ブラ ウザ に 表示 され な く な っ て し まい ます 。 

コン トロ ー ル の 所 在 は 、<object> タグ の [CodeBasel プロ パテ ィ を 使用 し ます 。 
これ は 、FrontPage Express の プロ パテ ィ ウ ィ ン ド ウ で 設定 で きま す 。 


①FrontPage Express を 起動 し て 、ActiveX コン トロ ー ル を 組み 込ん だ HTML を 表 
示し ます 。 
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②Active 双 コ ント ロー ル の 上 で マウ ス の 右 ボ タン を 押し 、 ポ ボ ポップアップ メニ ュー か 
ら [ActiveX コ ント ロー ル の プロ パテ ィ ]| を 選び ます 。 


ここ を 右 ク リッ ク 
ブル トッ の 





③ プ ロ パ ティ ウィ ンド ウ に ある 、「 コ ー ド ソー ス 」 の 欄 に 、HTML を 公開 する Web 
サー バ の URL を 、http か ら 記 述 し ます 。 こ の と き 、ActiveX コ ント ロー ル の ファ 
イル 名 (SlotGame.ocx) まで きち ん と 記述 し て くだ さい 。 パ ス 名 だ け で は 正常 に 
ダウ ン ロ ー ド され ませ ん 。 ま た 、 フ ァイル 名 の 大 文字 小文字 も 正確 に 記述 し 、 サ 
ー バ 側 の ファ イル 名 と きち ん と 一 致す る よう に し て くだ さい 。 以下 は 著者 の ホー 
ムペ ー ジ の サン プル アド レス で す 。 


ht や : / / www 。 やわ 1 . の エ . JpD/ SG モ 上 〇 / 8S1OtGame .OC 交 













ctGams St 二 <| 2 


ーーーーーーーー 一 | アド レス な の で 、 必 要 に 応じ 
_」 、 、、。 呈 ol ] て 上 自分 の アド レス に 変更 する 


④ プ ロ パ ティ の 編集 画面 を 閉じ 、FrontPage Express で [表示] メニ ュー の 
[HTML] を 選び ます 。 


ここ を ク グリッ ンク 


に に を プリ ッ グ 











LessSon38 ActiveX コン トロ ー ル を HTML に 組み 込 





⑤HTML の <object> タグ に 、 新 た に 「CODEBASE」 が 追加 きれ て いま す 。 


CODBAS 互 = "ht や : / /www . も 1 .O エ .p/-Seto/S1otGame . ocxx" 











川 </ バ sbls> 
胃 く に enter> く /div> 


1 く p align= Center' ><object 





:: debase ニ http ん worjp/ eio/SpGams ox1 
Ep り ざ ら ぞ だ ー 6 と ca Object> く /p> 


馬 く p aigr= center >Stop ボ タン を 押す と 、 停止 し ます 。</p> 


還 く div align= center > く <oenter> 





ここ が 追加 され て いる 


間 <table border="2" cellpadding= "8 > 
| < 


く td> く p sligr= "center"> く font coior= #FFO080 > ハー ト </font> : 超 ラッ キー</p> 
く p agnー Center > スペ ー ト : や や ラッ キー</p> 

く p ag center”> く font co に" 寿 FOO080 > ダイ ヤ </font> : アン ラッ キー</p> 
<p aiign= center > クラ ブ : 超 アン ラッ キー</p> 









の の 確認 し た ら こ こ を 押す 


了 く 7Tahle > 


⑥ 作 成 し た HTML フ ァイル と ActiveX コン トロ ー ル (ここ で は 、[「SlotGame.ocx |) 
を 、Web サ ー バ に FTP ソ フト で 転送 し ます 。 こ の と き 、「CODEBASE」| で 指定 
し た URL と 必ず 一 致す る ディ レク トリ に 転送 し て くだ さい 。 





150 maT ASCI Ode rー バ PCO ro biry. 
Z26「ransfer complete. 

ISTATUS:> Received 959U byfes Ok. 

TATUS:> Time: 0:UU:0Z. Efficiency: 4.68 KBylesys (4795 byless) 
TATUS:> Done. 















MD: 天 d:*#_qenkou\10ka-vb6- 1\ 付 録 \lesx 困 pub27home2/seto/html 
【 = コ book15 jpg 

L] SLOTGAME VBP 592 97/09710 18.27 

| ] SLOTGAME VBwW 
| SLOTGAME ExXP 
上 ] SLOTGAME LIB 












8.189 97/2/06 000  -mww-ー 
9087 98/02/03 000 -w-ー 
11.557 980410 1318 -wm-ー 
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⑦ の プラ ウザ で HTML フ ァイル を 読み 込み 、 動 作 テ スト を し ます 。 こ の と き 、 イ ン 
ーネット エク スプ ロー ラ の [イネ シタ ーネット オプ ショ ン ] メニ ュー で 、 名 
ティ の ペー ジ に ある [セキ ュ リ ティ レベ ル ] を 「 低 | に 設定 し て くだ さい 。 
独自 に 作成 し た ActiveX コ ント ロー ル に は 、「 デ ジタル 署名 が あり ませ ん の で 、 
セキ ュ リ ティ レベ ル が 「 中 」 以上 だ と 、 プ ブラ ウザ が ダウ ン ロ ー ド し ませ ん 。 


第 10 日 3 時 限 目 ActiveX コン トロ ー ル を 作 




















| 全校 セキ ュ リティ | コレ テン ツ | 李 計 | ブロ ラム | 9 
Web 。 テン ウ の ワー ン ご ひご Mt セキ ュ リティ し ベル を 赴き ます 。 








時 
プー ン に は ほか の ヴー ン (に 役 守 し て いな 
| @ : べ て の Was 8 ます 、 


] この プー ン の セキ ュ リティ レベ ル : 
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で 高 (最も 安全 ー 
ェ ル っ - 上 に 提 宮 きち える 可能 性 が ある コア は 時 外さ れ ま す 。 | 
C 中 (安全 

持ち える 可能 性 が ある テウ の 実行 に 千 し ます 。 


[ 低 ] を クリ ッ ク 


4、 し 4 Am 只 の ある ユー ザー 
CFS 





サー ン の @ て ーー ー 
| 
| 


[OK] を クリ ッ ク 


⑧ ダ ウン ロー ド を 開始 する と 、 途中 で イン スト ー ル の 確認 が 表示 され る の で 、「 は い | 
を クリ ッ ク す る と ダウ ン ロ ー ド を 完了 し 、ActiveX コ ント ロー ル が 動作 を 開始 し 
ます 。 
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Stop ポ タン を 折 す と 、 生ま 
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AUTHENTICODE 署名 が 見 つか り ま せん 。 





速 中 で イン スト ー ル の 


誰が 表示 さ れる 





| いし え 0D | 詳細 情報 Q | 








LeSSon38 ActiveX コン トロ ー ル を HTML に 組み 込 


ダウ ン ロ ー ド を 完了 し 
動作 を 始め る 








ActiveX コ ント ロー ル を HTML に 組み 込 お 場合 は 、FrontPage Express や 
ActiveX コン トロ ー ル バッ ド な どの 、 専 用 の エディ タ を 使っ て 組み 込み ます 。 ま た 、 
コン トロ ー ル の 作成 バー ジョ ン が 変わ っ た と き は 、HTML へ の 組み 込み も や り 直 す 必 
要 が あり ます 。 

HTML に ActiveX コン トロ ー ル を 組み 込む と 、 こ れ ま で の ホー ムペ ー ジ に は な い 、 
ユー ザー 対話 型 で ダイ ナミ ッ ク な Web コン テン ツ を 作成 で きる の で 、 自 分 の ホー ムペ 


ー ジ を と て も 魅力 的 な ペー ジ に 変え られ ます 。 

し か し 、 一 方 で は ActiveX コン トロ ー ル を 表示 で きる ブラ ウザ が 、1998 年 1 1 月 
現在 イン ター ネッ ト エ クス プロ ー ラ し か な い 状 況 も あり ます の で 、 ペ ー ジ に 「 イ ンタ 
ーネット エク スプ ロー ラ で 見 て くだ さい 」 な どの 断り 書き を 添え る よう に する と いい 
も まう 。 

また 、 レ ッ ス ズン を 終え た ら 、 イ ンタ ーネット エク スプ ロー ラ の [セキュリティ] 設 
定 を 元 に 戻し て お きま し ょ う 。 





第 10 日 3 時 限 目 ActiveX コン トロ ー ル を 作 








Visual Basic プロ グラ ミン グ に 役立つ 各種 リフ ァ レ ンス を 掲載 し まし た 。 


わか ら な い 言 葉 や 関数 が あれ ば 用 語 集 や 関数 リフ ァ レ ンス を 参照 し て くだ さい 。 
ASCII 文字 コー ド 一 覧 は Chr 関数 な ど を 使用 する と き に 利用 で きる も の で す 。 デ 
ー タ 型 一 覧 は Visual Basic で 扱え る デー タ 型 を 知っ て お く た め の も の で す 。 エ ラ 
ー 番 号 一 覧 は デバ ッ グ 作業 に 有効 で す 。Visual Basic で 生成 され る ファ イル の 知 
誤 が あれ ば ファ イル を 配布 する と き に 役立つ で し ょ う 。 シ ョ ー ト カッ ト 一 覧 で ショ 


ー ト カッ ト を 使い こなせ は ば 作業 を 効率 化す る こと が で きま す 。 
巻末 に 答 レ ッ ス ズン の 練習 問題 の 解答 が 付い て いま す 。 


@ 付 角 

コ 用 語 

関数 リフ ァ レ ンス 

ASCII 文字 コー ド 一 覧 

ロロ デー タ 型 一 覧 

エラー 番号 一 覧 (一 部 ) 

コロ プロ ジェ クト ファ イル の 形式 
コショー トカ ッ ト 一 覧 
練習 問題 の 解答 




















( 例 ) 





身 字 


API 
Application Programming Interface の 略 
で 、Windows の 持っ て いる 機能 を プロ グラ 
ム で 利用 する た め に 用 意 さ れ て いる 機能 。 
WindowsS プロ グラ ム の ほとん ど が 、 何 ら か 
の 形 で この API を 呼び 出し な が ら 5 動作 し て い 
る 。 


ActiveX コン トロ ー ル 

Microsoft が 開発 し た 新しい 技術 「ActiveX」 
テク ノロ ジー を 組み 込ん だ コン トロ ー ル の こ 
と 。 こ れ ま で 、Visual Basic の コン トロ ー 
ル は Visual Basic だ け で し か 使用 で き な か 
っ た が 、ActiveX コン トロ ー ル に な っ て か ら 
は 、 Visual C++ や Visual J++、 
ExcelVBA な ど 、 和 複数 の アプ リケーション や 
開発 環境 か ら 使 うこ と が で きる 。 


DAO 
Data Access Object の 略 で 、 デ ー タ ベー 
ス を 操作 する 機能 を 組み 込ん だ オブ ジェ ク 
ト 。Visual Basic や VBA で 使う と 、 簡 単に 
テー タベース の 近作 が で きる 。 


DLL ファ イル 
Dynamic Link Library の 略 で 、 プ ログ ラム 
か ら 呼 び 出 され る ファ イル 。 プ ログ ラム の 機 
能 を プロ グラ ム に 埋め 込ま すず 、 こ の DLL フ 
ァイル に 収録 し 、 プ ログ ラム の 本 体 か ら 呼 び 
出し て 使う つこ と が で きる 。DLL ファ イル 自身 
は 、 単 独 で 実行 で き な い 。 


DHTML 
Dynamic Hyper Text Markup Language 
の 賠 。 





レッ スン 中 に 使用 し た 用 語 を まとめ まし た 。 こ れ 以 外 の 用 語 に つい て は Visual Basic 
の オン ライ ン ヘ ルプ 「MSDN ライ ブラ リ 」 も 参照 し て くだ さい 。 


※ こ の 用 語 集 は 以下 の よう な 構成 に な っ て いま す 。 
MouseMove イベ ント 。。。。。<<<cssssss 用 語 
マウ ス を 動か す と 発生 する イベ ント 。*=・=*・・・ 用 語 の 説明 


ホー ムペ ー ジ 作成 言語 で ある HTML を 更に 
機能 拡張 し 、 動 き の あ る ペー ジ や 、 画 像 と 文 
子 の 重ね あわ せな ど 、 デ ザイ ン 機 能 が 強化 さ 
れ て いる 。 ま た 、 ス クリ プ ト 言 語 に よる プロ 
グラ ム 機 能 も 組み 込む こと が で きる 。 


HTML 
Hyper Text Markup Language の 略 。 ホ 
ー ム ペー ジ を 作成 する た め に 作ら れ た 文書 作 
言語 。 ペ ー ジ 間 を 簡単 に 移動 で きる 「 ハ イ 
パー テキ スト J」 機能 や 、 文 字 の 拡大 ・ 装 飾 、 
作 表 、 画 像 組み 込み な ど 、 マ ル チ メ ディ ア 的 
な 文書 を 作成 で きる 。 


MIDI ファ イル 
コン ピュ ー タ ・ ミ ュー ジッ ク 用 に フォ ー マ ッ 
ト さ れ た ファ イル 。 録音 ・ 再 生 に は 「MIDI 
シー ケン サ 」 と 呼ば れる 専用 の 機器 や 「MIDI 
音源 ] が 必要 だ が 、Windows で は ソフ ト 的 
に 再生 で きる よう に な っ て いる 。 


MouseDown イベ ント 
マウ ス の ボタ ン を 「 押 し た と き 」 に 発生 する 
イベ ント 。Click イベ ント と 違い 、 マ ウス の 
ボタ ン を 押し た 時 点 で 発生 する 。 


MouseMove イベ ント 
マウ ス を 動か す と 発生 する イベ ント 。 


MouseUp イベ ント 
マウ ス の ボタ ン を 「 離 し た と き 」 に 発生 する 
イベ ント 。 








に 
Object Linking S&S Embedding の 略 で 、 日 
本 語 に する と 「 オ ブ ジ ェクト の 連結 と 組み 込 
み 」 と いう 意味 。 Windows の 機能 の 1 つ で 、 
オブ ジェ クト 同士 を 連動 させ る 機能 。 


RGB 
Red/Green/Brue の 3 つの 色 の 組み 合わ せ 
の こと 。 モ ニタ の 色 表 示 に 使用 され る 。 


WAV オー ディ オ 
Windows 用 に フォ ー マ ッ ト さ れ た サウ ンド 
ファ イル の 形式 。 


Web コン テン ツ 
WWW で 扱わ れ て いる 情報 の 中 身 。HTML 
文書 や ダウンロ ー ド ファ イル な ど 、WWW で 
取り 扱わ れる も の を 総称 し て こう 呼 点 。 


WWW 
World Wide Web の 略 イン ター ネッ ト で 
利用 で きる サー ビス の 1 つ で 、 ホ ー ム ペー ジ 
の 閲覧 が で きる 。 


ア 行 


ィ イメー ジコ シト ロー ル 
イメ ー ジ ファ イル を 表示 する コン トロ ー ル 。 


イジ ター ギ キッ: 
地球 規模 の ネッ トワ ー ク の こと で 、 電 子 メー 
ル や WWW、FTP な どの サー ビス を 利用 で 
さる 。 


イン タプ リタ 
プロ グラ ム の ソー スコ ー ド を 読み 込み な が 
ら 、 プ ログ ラム を 実行 する 機能 の こと 。 
Visual Basic の コー ド を マシ ン 語 に 翻訳 し 
な が ら 5 動作 させ る た め 、Visual Basic が 動 
作 し て いな いと 、 プロ グラ ム を 実行 で き な い 、。 


エラ ー 処 理 

ユー ザー の 誤操作 や 、 式 の 実行 結果 に よっ て 
生じ る プロ グラ ム の 動作 エラ ー を 、 あ ら か じ 
め 予 想 し て 回 避 す る た め の 処 理 の こと 。 


用 語 


演算 子 
計算 に 使用 する 記号 で 、 式 は デー タ と 演算 子 
で 組み 立て られ る 。Visual Basic で 用 意 さ 
れ て いる 演算 子 に は 、 四 則 演 算 を 行う 「 人 算術 
演算 子 ] や 、 デ ー タ を 比較 する 「 比 較 演 算 子 」 
な ど が ある 。 


オブ ジェ クト 
フォ ー ム や コン トロ ー ル な ど 、 プ ログ ラム を 
構成 する も の すべ て を 、 オブ ジェ クト と 呼応 。 


オプ ショ ン ボ タン コン トロ ー ル 
復 数 の 項目 か ら 1] つ だ け 選 択 し て も ら う 場合 
に 使用 する コン トロ ー ル 。 


力行 


構造 化 プ ログ ラミ ング 
プロ グラ ム を 機能 ご と に まとめ 、 そ れ ぞ れ を 
呼び 出し な が ら プ ログ ラム を 組み 立て て いく 
手法 。 


コモ ンダ イア ログ ボック スコ ント ロー ル 
Windows の 機能 の 1 つ で 、「 共 通 ダ イア ロ 
グ ボ ックス 」 と 呼ば れ て いる 。[ フ ァイル を 
開く ] [名 前 を 付け て 保存 ] な どの ダイ アロ 
グ ボ ックス は 、 こ れ ま で 自分 で 作成 し な けれ 
ば な ら な か っ た が 、 コ モン ダイ アロ グ ボ ッ ク 
スコ ント ロー ル が 必 入 され て か ら は 、 あ ら か 
じ め 用 意 さ ご され て いる これ ら の ダイ アロ グ ボ ッ 
クス を 呼び 出す だ け で 、 簡 単に 使用 で きる よ 
うに な っ た 。 


コン トロール 
コマ ンド ボタ ン や リス ト ボ ックス な ど 、 プ ロ 
グラ ム を 構成 する 部 品 の こと を いう 。 動 作 す 
る 機能 に よっ て 、 さ ご さまざま な コン トロ ー ル が 
用 意 さ れ て いる 。 


コン トロ ー ル 配列 

1 つの コン トロ ー ル を いく つも 複製 し て 使用 
する と 、 コ ント ロー ル を 配列 と し て 使用 で き 
る 。 1 つの オブ ジェ クト 名 に 番号 を 付け て 参 
照 す る 。 


付録 各 種 リ ファ レン 





コン kT 

プロ グラ ム を 、 ソ ー ス コー ド か ら とら 実行 可 能 な 
ファ イル に 変換 する 機能 を 「 コ ン パ イル 」 と 
呼び 、 こ の 機能 を 持っ た プロ グラ ム を 「 コ ン 
パラ] どい う 。 


コン ボボ ックス コン トロ ー ル 
テキ スト ボッ クス コン トロ ー ル と リス ト ボ ッ 
クス コン トロ ー ル を 組み 合わ せ た コ ント ロー 
ル 。 リ スト か ら の 選択 と ユー ザー の 入力 の ど 
ちら も 受け 付け る こと が で きる 。 


サ 行 


シー ケン シャ ル 書 き 出 し 
ファ イル の 先頭 か ら 順 番 に 書き 込ま れる 方 法 
の EE だ 。 


ジジ エデン エア 

有料 で 配布 され る ソフ トウ ェ ア の こと 。 市 販 
の ソフ ト と 違い 、 パ ッ ケ ー ジ に 入っ て 店 頭 販 
売 さ れる の で は な く 、 イ ンタ ーネット や パソ 
コン 通信 、 雑 誌 の 付録 な ど を 使っ て 流通 し て 
いる 。 無料 で 入手 し 、 と りあ え ず 使っ て み 
て 、 和 気に入っ た ら お 金 を 払う 、 と いう シス テ 
ム に な っ て いる 。 


スン ロー ル バ パー コン ドロ ー ル 

ボタ ン を 押す と バー が 移動 する コン トロ ー 
ル 。 水平 と 垂直 の ら 種類 が 用 意 さ れ て いる 。 
大 きす ぎる 画面 内 容 を 表示 する の に 使用 す 
る 。 


ステ ッ プ 実行 
プロ グラ ム を ソー スコ ー ド 1 行 ず つつ 実行 する 
機能 。 


セキ ュ リ ティ 

[保安 」「 警 備 」 な どの 意味 で 、 コ ンピュータ 
の 世界 で は 、 コ ンピュータ ウィ ルス や 外部 か 
ら の 不当 な 侵入 を 防ぐ た め の 機 能 の こと を こ 
う 呼 ん で いる 。 


宣言 セク ショ ン 

モジ ュー ル の 中 で 、 変 数 を 宣言 する た め だ け 
に 使用 で きる セク ショ ン 。 こ こ で 宣言 し た 変 
数 は 、 モ ジュ ー ル 内 の すべ て の プロ シー ジャ 
か ら 参 照 で きる 。 


の 一生 オー ド 
プロ グラ ム の 元 に な る リス ト 。 


タ 行 


タイ マー コン トロ ー ル 

ミリ 秒 単位 で イベ ント を 発生 する コン トロ ー 
ル 。 ア ニメーション 効果 な ど を 設定 する 際 に 
使用 する と 効果 的 。 


タブ 付き ダイ アロ グ ボ ックス コン トロ ー ル 
Windows か ら 導 入 さ れ た 、 小 さ な タ ブ が 付 
いた ダイ アロ グ ボ ックス を 操作 する コン トロ 
ー ル 。 


チェ ッ ク ポ ボッ クスコ ント ロー ル 

ユー ザー が クリ ッ ク す る と 、 口内 に ヂ チェッ ク 
が 付く コン トロ ー ル 。 条 件 の オン オフ を 操作 
する 場合 に 使用 する 。 


閉 作 権 

も の を 作成 し た 権利 。 日 本 の 法律 で は 、 プ ロ 
グラ ム と いえ ども 製作 者 が 著作 権 を 保有 し て 
いる 。 し た が っ て 、 著 作 権 者 に 無断 で 販売 や 
復 製 を 行う と 、 法 律 で 罰せ られ る 。 


ツー ル チ ッ プ 

メニ ュー や ツー ル バ ー の ボタン の 上 に 、 マ ウ 
ス の ポイ ンタ を 持っ て くる と 現れ る 、 こ れ ら 
の 内 容 を 説明 する 小さ な 表示 の こと 。 


ディ レク トリ リス ト ボ ックス 
指定 し た ドラ イブ の ディ レク トリ (フォ ル ダ ) 
名 を 一 覧 表示 する コン トロ ー ル 。 


デー タコ ント ロー ル 
Microsoft AccesS な どの 、 デ ー タ ベー ス 
ファ イル を 操作 する た め の コ ント ロー ル 。 








テキ スト ファ イル 
文字 だ け で 構成 され る ファ イル 。 


テキ スト ボッ クス コン トロ ー ル 

文字 の 入力 を 受け 付け る コン トロ ー ル 。 プ ロ 
パテ ィ の 設定 で 複数 行 の 編集 や スク ロー ル バ 
ー の 有無 を 設定 で きる 。 


デジ タル 署名 
ActiveX コン トロ ー ル な ど に 組み 込む 、 作 成 
者 名 な ど が 表示 され る 電子 署名 。 


デバ イス 
コン ピュ ー タ に 接続 され る 機器 の こと を デバ 
イス と いう 。 また 。 こ の デバ イス と コシ ピュ 
ー タ を 接続 する た め に 使用 され る 、 小 さ な シ 
ステ ム 用 ソフ ト を 「 デ バイ ス ドラ イ バ 」 と い 
つ 。 


デバ ッ グ 作業 
プロ グラ ム の 中 に 存在 する 不具 合 を 「 バ グ 」 
と いい 、 こ の バグ を 見 つけ 出し 修正 する 作業 
を 「 デ バッ グ 」 と 呼ぶ 。 


トッ プレ ベル メニ ュー 
最上 位 に 位置 する メニ ュー 項目 の こと 。 


ドラ イブ リス ト ボ ックス 
コン ピュ ー タ で 利用 可能 な ドラ イブ を リス ト 
表示 する コン トロ ー ル 。 


ドラ ッ グ S&S ドロ ッ プ 
マウ ス の ボタ ン を 押し な が ら ア イコ ン な ど を 
移動 させ る こと を 「 ド ラッ グ 」 と いう 。 ま た 、 
その まま 他 の アイ コン や オブ ジェ クト に 重ね 
る 操作 を 「 ド ラッ グ &S ドロ ッ プ 」 と 呼ん で い 
る 。 


八 行 


バー ジョ ン 番 号 
作成 し た プロ グラ ム に 、 一 連 番 号 を 付け る こ 
と が で きる 。 こ れ が 、[「 バ ー ジ ョ ン 番 号 」 と 
呼ば れる も の で 、Visual Basic で は 自動 的 
に この 番号 を 付加 する 機能 を 装備 し て いる 。 


用 語 


比較 演算 子 
ら つの デー タ を 比較 し て 、 答 え を 求め る 演算 
子 。「=」 は 、 ら つの デー タ を 比較 し 、 等 し け 
れ ば 真 を 返す 。 他 に 大 な り (>) 小 な り (<) 
な ど が ある 。 


ビッ トマ ッ プ ファ イル 
イメ ー ジ ファ イル の 1 つ で 、Windows 専用 
の フォ ー マ ッ ト で 保存 され る 。 


標準 モジ ュー ル 
イベ ント プロ シー ジャ と は 別に 、 独 自 の プロ 
シー ジャ を 作成 する 場合 に 使用 で きる 、 コ ー 
ド 専 用 の モジ ュー ル の こと 。 


ファ イル リス ト ボ ックス 
指定 し た ディ レク トリ (フォ ル ダ ) に ある フ 
ァイル を 一 覧 表示 する コン トロ ー ル 。 


ファ イル 番号 

開い た ファ イル を 管理 する た め に 使用 され る 
番号 。 フ ァイル 管理 の 操作 で は 、 フ ァイル 名 
で は な く フ ァイル 番号 で 操作 され る 。 


プ ナ オー な 

プロ グラ ム の ベー ス と な る ウィ ンド ウ の こ 
と 。 プ ログ ラム に よっ て 、 複 数 の フォ ー ム を 
持つ こと が で きる 。 


フォ ー ム テン プレ ー ト 
フォ ー ム 作成 に 、 あ ら か じ め 用 意 さ れ た 「 バ 
ー ジ ョ ン 番 号 表示 ] や 「 タ イト ル 表 示 」 な ど 、 
フォ ー ム の 雛形 を 使う こと が で きる よう に な 
っ た 。 これ を 、 フォ ー ム テン プレ ー ト と いう 。 


メタ ウザ 
ブラ ウズ は 「 拾 い 読 み 」 と か 「 ざ っ と 見 る ] 
と いう 意味 。 ホ ー ム ペー ジ を 見 る ソフ ト を 
「WWW ブラ ウザ 」 と 呼 点 。 


フリ ー ウ ヴ ウェア 
無償 で 提供 され る ソフ トウ ェ ア 。 主 に 、 イ ン 
ター ネッ ト や パソ コン 通信 、 雑 誌 の 付録 な ど 
で 流通 し て いる 。 


付録 音 種 リフ ァ レ ン 





ブレ ー ク ポイ ント 

プロ グラ ム の デバ ッ グ や 動作 テス ト に 使用 す 
る Visual Basic の 機能 の 1 つ で 、 ソ ー ス コ 
ー ド の 仕 意 の 1 行 に 目印 を 付け て 、 そ こ で 動 
作 を いっ た ん 停止 上 せる こと が で きる 。 こ の 
目印 を 、 ブ レー ク ポ イン ト と いう 。 


フレ ー ム コン トロ ー ル 
コン トロ ー ル を まとめ た り 、 フ ォ ー ム に 枠 を 
作成 する た め の コ ント ロー ル 。 


フロ ー 制 御 

プロ グラ ム の 流れ を 制御 する こと 。 特定 の 条 
件 で 以降 の 処理 を 振り 分 ける 場合 に 使用 され 
る 。V び isual Basic で は 、If ステ ー ト メン ト 
ゃ や Select Case ステ ー ト メン ト が 代表 的 な 
大 デー トメ ント 。 


変数 
プロ グラ ム 実 行 時 に 、 デ ー タ を 一 時 的 に 保管 
する た め に 使わ れる 「 入 れ 物 ]」 の こと 。 中 に 
和信 れ る デー タ に よっ て 、 変 数 の 型 が 決め られ 
て いる 。 


変数 の ウォ ッ チ 
テバ ッ グ 機能 の 1 つ で 、 プ ログ ラム を 実行 し 
な が ら 変 数 の 中 身 を 調べ る こと が で きる 。 


変数 を 宣言 する 

変数 を 使用 する 場合 は 、 あ ら か じ め こ うい う 
変数 を 使う 、 と いう 宣言 を する こと が で きる 。 
その 場合 は 、Dim ステ ー ト メン ト で 変数 名 を 
記述 し 、 デ ー タ 型 を 指定 し て 宣言 する 。 


ポッ プア ッ プ メニ ュー 
フォ ー ム の 上 で マウ ス の ボタ ン を 押す と 表示 
され る メニ ュー。Windows と 、Windows 
対応 の アプ リケーション で は 、 ほ と ん どこ の 
メニ ュー 機能 を 組み 込ん で いる 。 


マ 行 


マウ スイ ベン ト 
マウ ス の 操作 を 行っ た 時 に 発生 する イベ ント 
で 、 マ ウス を 動か し た と き や ボ タン を クリ ッ 
ク し た と き な ど 、 数 種類 の イベ ント が 用 意 さ 
れ て いる 。 


マル チ メ デ ィ ア コン トロ ー ル 
サウ ンド ファ イル の 再生 や 、AVI ビデ オフ ァ 
イル な ご ど 、 マ ル チ メ ディ ア 関 連 の デー タフ ァ 
イル を 再生 する た め の コ ント ロー ル 。 


メソ ッ ド 
コン トロ ー ル に 対し 、 な に か 動作 を 行わ せる 
合 に 使用 され る 、Visual Basic の 機能 の 
すす 


メッ セー ジ ボ ッ クス 
ユー ザー か ら 「 は い 」「 い いえ 」 な どの 応答 
が 必要 な メッ セー ジ 、 あ る い は エラ ー、 警告 、 
注意 な どの 短い メッ セー ジ を 表示 する た め の 
ダイ アロ グ ボ ックス 。 


メル ディ ア 
[媒体 」「 伝 達 手段 」 の 意味 。 


メニ ュー エディ タ 
プロ グラ ム に メニ ュー を 組み 込む た め の ツ ー 
ル 。 


を モリ 

コン ピュ ー タ の 中 で 、 デ ー タ を 記憶 し て お く 
場所 の こと 。Visual Basic で は 、 直 接 メ モ 
リエ リア を 参照 する こと が で き な い 。 


モー ダル と モー ドレス 

フォ ー ム の 表示 形態 で 、 そ の フォ ー ム を 閉じ 
な いと 元 の プロ グラ ム に 戻れ な い の が 「 モ ー 
ダル 表示 」、 ど ちら も 操作 で きる の が 「 モ ー 
ドレ ス 表 示 」 と 呼 点 。 


モジ ュー ル 
1 つの か た まり の こと で 、 プ ログ ラム の 世界 
で は 、 プ ログ ラム の 機能 を 部 分 的 に まとめ た 
も の を モジ ュー ル と 呼ん で いる 。 








文字 列 
複数 の 文字 を 組み 合わ せ た も の を 、「 文 字 列 」 
と 呼ん で いる 。 


ヤ 行 


ユー ザー イン ター フェ イス 
プロ グラ ム の 、 ユ ー ザ ー と 接する 部 分 を 表す 
言葉 。 通常 は ボタ ン や メニ ュー の こと を 指す 。 


ラ 行 


ランタイム DLL 
DLL ファ イル の 一 種 で 、 プ ログ ラム を 実行 す 
る 上 で 必要 な DLL ファ イル の こと 。 


ルー ププ 処理 
一 定 の 条件 や 回 数 で 、 1 つの 負 理 を 何 回 も 繰 
り 返 し 実行 する 処理 。Visual Basic で は 、 
For..….Next ステ ー ト メン ト や 、DO.….While..… 
LoOD ステ ー ト メン ト な ど が 使わ れる 。 


レジ スト リ 
WindowsS で は 、 ア プリ ケー ショ ン の 登録 や 
設定 を 「 シ ステ ムレ ジス トリ 」 と いう ファ イ 
ル に 記録 する 。Visual Basic で は 、 自 分 で 
作成 し た プロ グラ ム で 、 こ の レジ スト リ を 使 
うこ と が で まる 。 


連結 コン トロ ー ル 

デー タベース コン トロ ー ル と いっ し ょ に 連動 
し て 使用 で きる コン トロ ー ル の こと で 、 プ ロ 
バテ ィ の 設定 だ け で 連動 で きる 。 


調理 演算 子 
OR (また は )、AND (及び )、 NOT (で な い ) 
と いう 論理 演算 に 使用 する 演算 子 。 


論理 型 (Boolean) デー タ 
Visual Basic で 扱わ れる デー タ 型 の 1 つ で 、 
真 (True) と 偽 (False) の ら つの デー タ し 
か 持た な い 、 語 理 型 の デー タ 。 


ワ 行 


ブイ ルド カー ド 
トラ ンプ で いう と 万能 札 」 と 同じ 役割 を 果 
た す 機 能 。 フ ァイル 名 の 指定 時 に 、 す べ て の 
種類 の ファ イル を 対象 と する 場合 は 、「*.*」 
と 記述 する 。 


付録 音 種 リ ファ レン 








関数 リフ ァ レ ンス 





上 


ADb8 
数 値 の 絶対 値 を 同じ デー タ 型 で 返す 。 
Abs (数 値 ) 


A エ エ a 
7 \ リ アン ト 型 の 値 を 返 


O 


Array( 企 1, 値 2, 値 3,...) 


As 
文字 列 内 の 先頭 の 文字 を 文字 コー ド ( 整 
数 ) に 変換 する 。 


Asc( 駐 字 列 ) 


に 人 まれ た 旦 和 の \ イ ト デ ー タ を 
取得 す 


As 

ASCW 
Unicode 文字 セッ ト の 文字 を 返す 。 
AscW( 文字 列 ) 

ム ヒ nm 


指定 し た 数 値 の アー クタ ンジ ェ ン ト を 倍 
本 度 浮動 小数 点数 型 (Double) で 返す 。 


Atn ( 倍 精 度 浮動 小数 点数 型 (poub1e) 
の 数 値 ま た は 任意 の 数 式 ) 


Visual Basic で 使用 で きる 関数 の 一 覧 で す 。 こ れ ら の 関数 の 詳細 に つい て は 、Visual 
Basic の オン ライ ン ヘ ルプ 「MSDN ライ ブラ リ 」 も 参照 し て くだ さい 。 


※ こ の 関数 リフ ァ レ ンス は 以下 の よう な 構成 に な っ て いま す 。 
( 例 ) AD8gescssseeeecsesseeeeeeseeeeeeeees 関 数 名 
数 値 の 絶対 値 を 同じ デー タ 型 で 返す ・<・<・ 関 数 の 説明 
Abs ( 数値) eeeeeeeeeeeeeeeeeeeeeses 関 数 の 書式 


じ 
CBoo1 
式 ま た は 数 値 を ブー ル 型 に 変換 する 。 
CBoo1 ( 式 ま た は 数 値 ) 

BY ヒ @ 
式 また は 数 値 を バイ ト 型 に 変換 する 。 
CByte( 式 また は 数 値 ) 


だ 
式 ま た は 数 値 を 通貨 型 に 変換 する 。 
Ccur( 式 また は 数 値 ) 

Da ヒ a 
式 ま た は 数 値 を 日 付 型 に 変換 する 。 
Cpata( 式 また は 数 値 ) 


CDb1 
式 ま た は 数 値 を 僅 精 度 浮 動 小 数 点数 型 に 
変換 する 。 


cpb1 ( 式 ま た は 数 値 ) 
CDecC 
式 ま た は 数 値 を 10 進 型 に 変換 する 。 
Cpec( 式 また は 数 値 ) 
ChooS8e 
引数 の リス ト か ら 値 を 選択 し て 返す 。 


Choose( 引 数 inaex, 選択 可能 な 値 の 
リス ト ) 








Ch 
指定 し た 文字 コー ド に 対応 する 文字 を 示 
す 文 字 列 を 返す 。 


Chr( 文 字 コ ー ド ) 


皮革 
式 ま た は 数 値 を 整数 型 に 変換 する 。 
Crnt ( 式 ま た は 数 値 ) 


CLnd 
式 ま た は 数 値 を 長 整 数 型 に 変換 する 。 
crng( 式 また は 数 値 ) 

Commmand 


実行 可能 な プロ グラ ム を 起動 させ る た め 
に 使用 する コマ ン ラ イン の 引数 の 部 分 を 


O 


CommandQd 


CO8 
指定 し た 角度 の コサイン を 倍 精度 浮動 小 
数 点数 型 (Double) で 返す 。 


cos (角度 を ラジ アン 単位 で 指定 ) 
C と ea 上 GO わら GC 


ActiveX オブ ジェ クト へ の 参照 を 作成 
し て 返す 。 


CreateObject (クラ ス 名 ) 


CSnd 
式 ま た は 数 値 を 単 精度 浮動 小数 点数 型 に 
変換 する 。 


csng( 式 また は 数 値 ) 


らら 了 
式 ま た は 数 値 を 文字 列 型 に 変換 する 。 
CS8tr( 式 また は 数 値 ) 

C い と D ュ エ 
指定 し た ドラ イブ の 現在 の パス を 返す 。 
CurDir( ドラ イブ 名 ) 


関数 リフ ァ レ ン 


CVa 了 
式 ま た は 数 値 を バリ アン ト 型 に 変換 する 。 
Ccvar( 式 また は 数 値 ) 


CVE エ エ 
ユー ザー が 指定 し た エラ ー 番 号 を 、 エ ラ 
一 値 に 変換 し た 値 を 返す 。 


CVErr( エ ラー 番号 ) 
D 


Dae 
現在 の シス テム の 日 付 を 取得 する 。 


Da 


DateAdQ 
指定 され た 時 間 間 隔 を 加算 し た 日 付 を 返 


O 


pateAdqd (追加 する 時 間 間 隔 の 形式 , 追 
加 す る 時 間 間 隔 の 数 , 時 間 間 隔 を 追加 
する 日 付 ) 


Da も らら D ェ ュ F 王 
ど つの 指定 し た 日 付 の 時 間 間 隔 を 返す 。 


pateDi EE ( 問 隔 を 計算 する た め の 時 間 
単位 , 間隔 を 計算 する 日 付 , 間隔 を 計 
算 す る 日 付 [, 週 の 始ま り の 曜日 を 表す 
定数 〔, 年 度 の 第 1 週 を 表す 定数 ] ] ) 


Da 七 G 選 a エ エセ 
日 付 を 評価 し 、 特 定 の 時 間 間 隔 部 分 を 取 
得する 。 
DatePart (時 間 間 隔 の 単位 , 評価 する 


値 [ , 週 の 始ま り の 曜日 を 表す 定数 [, 年 
度 の 第 1 週 を 表す 定数 ] 」 ) 


Da 上 eSeGr ュ a1 
指定 され た 年 、 月 、 日 に 対応 する 日 付 を 
取得 する 。 
DateSeria1 (年 , 月 , 日 ) 
DateVa1ue 
文字 列 を 日 付 に 変換 する 。 
DateVa1ue (日 付 ) 





付録 癌 生 リ ファ レン ッ ク 





DaY 
指定 され た 日 付 の 日 " で 表 さ れる 部 
分 を 取得 する 。 


Day (日付) 


DDB 
倍率 法 な どの 指定 し た 方 法 を 使っ て 特定 
の 期 に お ける 資産 の 減価 償却 費 を 返す 。 


ppB (資産 を 購入 し た 時 点 で の 価格 , 耐 
用 年 数 が 終了 し た 時 点 で の 資産 の 価格 , 
資産 の 耐用 年 数 , 減価 償却 費 を 求め る 
期 を 示す 値 [, 減価 償却 率 ]) 


D ュ エ 
指定 し た パタ ー ン や ファ イル 属性 と 一 致 
する ファ イル また は フォ ル ダ の 名 前 を 返 


O 


pir[( フ ァイル 名 [, 取得 する ファ イル 
が 持つ 属性 の 値 の 合計 ] ) 


DO びら n 七 8 
プロ グラ ム で 右 有 し て いた 制御 を オペ レ 
ー テ ィング シス テム に 渡す フロ ー 制 御 関 


O 


DOo 到 びさ ent8( ) 
ヒ 


忌 ロ ユエ エ Om 
オペ レー ティ ング シス テム の 環境 変数 
を 返す 。 
Environ( {環境 変数 | 環境 文字 列 の 
順番 ) ) 


EOF 
ファ イル の 終端 に 達し た か どう か を 返 
す 


O 


EOF( フ ァイル 番号 ) 


世 了 エ O 了 エ 
指定 し た エラ ー 番 号 に 対応 する エラ ー メ 
ッ セ ー ジ を 返す 。 


Error[( エ ラー 番号 ) ] 


EXD 
指数 関数 (6 を 底 と する 数 式 の べき 乗 ) 
を 計算 する 数 値 演算 関数 Exp( 数 値 )。 


Exp( 式 また は 数 値 ) 
F 


F ュ らら A 七 了 
Upen ステ ー ト メン ト で 開い た ファ イル 
の ファ イル モー ド を 返す 。 


Fi1eA モ モ ェ (ファ イル 番号 , 取得 する フ 
ァイル 情報 の 種類 ) 


F1 TeDateTime 
指定 し た ファ イル の 作成 日 時 また は 最後 
に 修正 し た 日 時 を 返す 。 


Fi1eDateTime( フ ァイル 名 ) 


F11eTLien 
ファ イル の サイ ズ を バイ ト 単 位 で 返す 。 


Fi1eren( フ ァイル 名 ) 


F ュ 上 
指定 され た フィ ル タ 条 件 に 基づい た 文字 
別 配列 の サブ セッ ト を 含む ゼロ ベー ス の 
配列 を 返す 。 
Fi1ter (検索 先 文字 列 , 検索 する 文字 
列 [, 訪 ま れる か どう か [, 文字 列 比 較 
モー ド ] 1 ) 

F ュ xx 


指定 し た 数 値 の 小数 部 分 を 取り 除い た 整 
数 値 を 返す 。 


Fix (数値) 


FO 了 エ m&a ヒ 


式 を 指定 し た 書式 に 変換 する 。 


Format( 式 [, 定義 済み 書式 また は 表示 
書式 指定 文字 〔, 週 の 日 目 を 指定 する 
定数 [, 年 の 第 1 週 を 指定 する 定数 ] ]  ) 








FO エ ma 七 じ ユエ エ GnCY 
シス テム の [コン トロ ー ル パネ ル ] で 定 
義 ご され て いる 書式 を 使っ て 通貨 形式 の 文 
子 列 を 返す 。 


FormatCurrenoy( 受 換 す る 式 [, 小 数 
点 以 下 の 桁 数 [, 小 数 点 の 左側 の ゼロ を 
表示 する か どう か [, 負 の 値 を か っ こ で 
囲む が か どう か [, [地域 の プロ パテ ィ ] 
で 指定 され て いる 桁 区 切り 記号 を 使用 す 
る か どう か を 表す 定数 ]]]] ) 


FormaEDate ュ me 
日 付 形 式 ま た は 時 刻 形 式 の 文字 列 を 返す 
文字 列 処 理 関数 


FormatDaterime (書式 を 変換 する 日 付 
式 [, 使 用 され て いる 日 付 / 時 刻 形式 を 表 
す 数 値 ] ) 


FO エ matNurmD ら Gr 
数 條 形式 の 文字 列 を 返す 。 


FormatNumber (変換 する 式 [, 小数 点 以 
下 に 表示 する 桁 数 〔, 小 数 点 の 左側 の ゼ 
ロ を 表示 する か どう か [, 負 の 値 を か っ 

こ で 囲む か どう か [, [地域 の プロ パテ 

ィ ] で 指定 され て いる 桁 区 切り 記号 を 使 
用 する か どう か を 表す 定数 ]  ) 


FO エ mm え 上 らら 
100 で 乗算 し た パー セン ト 形 式 の 式 に 
バー セン ト 記 号 (9%) を 付加 し て 返す 。 


FormatpPeroent (変換 する 式 [, 小数点 

以下 に 表示 する 桁 数 [, 小 数 点 の 左側 の 
ゼロ を 表示 する か どう か [, 負 の 値 を か 
っ こ で 囲む か どう か [, [地域 の プロ パ 
ティ 」 で 指定 され て いる 桁 区 切り 記号 を 
使用 する か どう か を 表す 定数 ]] ] ] ) 


FrGGF ュ 16 
使用 可能 な ファ イル 番号 を 整数 型 
(Integer) の 値 で 返す 。 


FreeFile[( フ ァイル 番号 の 範囲 ) 

FV 
定額 の 支払 い を 定期 的 に 行い 、 利 率 が 一 
定 で ある と 仮定 し て 、 投 資 の 将来 価値 を 


O 





関数 リフ ァ レ ン 


FV( 利 率 , 支払 い 回 数 の 合計 , 毎回 の 
nrr 支払 い の 合計 金額 [, 支払 其 
] ) 


ロ 


Ge 上 A11S6G ヒ nd8 
WindowsS の レジ スト リ に ある アプ リ ケ 
ーション の 項目 か ら 、 す べ て の キー 設定 
お よび 各 キ ー 設 定 に 対応 する 値 の リス ト 
を 返す 。 

GetA11Settings (キー 設定 を 取得 する 
アプ リケーション 名 , キー 設定 を 取得 
する セク ショ ン 名 ) 

ご ら G 七 入 七 上 
ファ イル また は フォ ル ダ の 属性 を 返す 。 
GetA モ モエ (ファ イル 名 ) 

G ら GA ム い 上 〇 SG ら エ て GSG ヒ ユ ns 
ActiveX コン ポー ネン ト の 登録 情報 を 
返す 。 

Ob わ ]@C . G ら GE 上 Au 上 〇 SG エ て erSettings([ 


コン ボー ネン ト の プロ グラ ム rp] 。 5 コ 
ン ボ ポー ネン ト の クラ ス rp ) 


GetEOb]@C 
ファ イル か ら 取 得 し た ActiveX オブ ジ 
ェクト へ の 参照 を 返す 。 
GetObjec モ 上 ([ フ アァ アイル 名 ] [, オブ ジ 
ェクト の クラ ス ] ) 


Ge 上 SeG 七 1nJ 
WindowsS の レジ スト リ に ある アプ リ ケ 
ーション の 項目 か ら 、 キー 設定 値 を 返す 。 
GetSetting( キ ー 設 定 を 取得 する アプ 
リケーション 名 , キー 設定 が ある セク 
ショ ン 名 , キー 設定 名 [, 初期 値 ]) 


H 


HG 
指定 し た 値 を 16 進数 で 返す 。 
Hex (数 値 ) 


付録 損 種 リ ファ レン or 





HOUu エ 
1 日 の 時 刻 を 表す 0 一 3 の 範囲 の 整 
数 を 返す 。 


Hour (時 刻 ) 
| 


中 = 
式 の 評価 結果 に よっ て 、2 つの 引数 の う 
ち ] つ を 返す 。 


rr ェ (評価 対 名 の 式 , 式 が 真 (rrue) 
の 場合 に 返す 値 , 式 が 偽 (False) の 
場合 に 返す 値 ) 


TME ご ヒヒ a ヒ u8 
IME の 現在 の 状態 を 返す 。 


エ MES ヒ a 七 て 8 


エロ わ u ヒ 
開い た ファ イル か ら 指 定 し た 文字 数 の 文 
字 列 を 読み 込む 関数 。 


Tnput (文字 数 , [#] ファ イル 番号 ) 


上 nu 七 
テキ スト ファ イル に 訪 ま れ て いる バイ ト 
デー タタ を 読み 込む 関数 。 


Tnput (バイ ト 数 , [#] ファ イル 番号 ) 


エロ Du い 上 BOO 交 

ダグ イア ログ ポッ ツ ス に メッ セー ジ と デキ 
スト ボッ クス を 表示 し 、 テ キス ト ボ ッ ク 
ス の 内 容 を 返す 。 


TnputBoxx (表示 する 文字 列 [, ダイ ア 

ログ ボッ クス の タイ トル ] [, テキ スト 
ボッ クス に 既定 値 と し て 表示 する 文字 

列 ] [, 水平 方 向 の 表示 位置 」, 垂直 
方 向 の 表示 位置 」 [, 使用 する ヘル プ 

ファ イル の 名 前 , ヘル プ ト ピ ビック に 指 

定 し た コン テキ スト 番号 ] ) 


エ n 七 了 エ 
ある 文字 列 の 中 か ら 指 定 し た 文字 列 を 検 
索 し 、 最 初 に 見 つか っ た 文字 位置 (先頭 
か ら そ の 位置 まで の 文字 数 ) を 返す 。 


TnStr( [検索 の 開始 位置 , 」 検 索 対象 と 
な る 文字 列 式 , 検索 する 文字 列 式 [, 文 
字 列 比較 の 比較 モー ド を 指定 する 番号 ] ) 


エ n お 七 了 民 G ざ 
文字 列 の 中 か ら 、 指 定 さ れ た 文字 列 を 最 
後 の 文字 位置 か ら 検索 し 、 最 初 に 見 つか 
っ た 文字 の 先頭 か ら そ の 位置 まで の 文字 
数 を 返す 。 


rnstrRev( 検 索 先 の 文字 列 , 検索 する 
文字 列 [, 検 索 の 開始 位置 [, 文字 列 
比較 の モー ド ]1 ) 


エロ 


指定 し た 数 値 の 整数 部 分 を 取り 隊 い た 整 
到 條 を 返す 。 


Tnt (数 値 ) 


TPm 巧 
定額 の 支払 い を 定期 的 に 行い 、 利 率 が 一 
定 で ある と 仮定 し て 、 投 資 期間 内 の 指定 
し た 期 に 支払 つ 金 利 を 返す 。 


rpmt (利率 , 金利 支払 額 を 求め る 期 , 
支払 い 回 数 の 合計 , 支払 い の 合 計 金 額 
[, 最後 の 支払 い を 行っ た 後に 残る 現金 
の 収支 [, 支払 期日 ) 


TRR 
ー 連 の 定期 的 な キャ ッシュ フロ ー( 支 払 
いと 収益 ) に 対す る 内 部 利益 率 を 返す 。 
rRR (一 連 の キャ ッシュ フロ ー の 値 [, 
関数 の 計算 結果 に 近い と 思わ れる 
直 ] ) 


エエ SA エエ 
変数 が 配列 で ある か どう うか を 調べ 、 結 果 
を ブー ル 型 (Boolean) で 返す 。 


rsArray (配列 変数 名 ) 








TsDate 
式 を 日 付 に 変換 で きる か どう か を 調べ 、 
結果 を ブー ル 型 (Boolean) で 返す 。 


TsDa ヒ @ ( 式 ) 


TSEnTnp ヒ 
変数 が Empty 値 か どう か を 調べ 、 結 果 
を ブー ル 型 (Boolean) で 返す 。 


rsEmpty ( 妥 数 ) 


上 エ 8 記 了 エ エ O 了 エ 
式 が エラ ー 値 か どう か を 調べ 、 結 果 を ブ 
ー ル 型 (Boolean) で 返す 。 


エエ 8 下 エエ Oo エエ ( 式 ) 


TSM1S81n 
プロ シー ジャ に 省略 可能 な バリ アン ト 型 
(Variant) の 引数 が 渡さ れ た か どう か 
を 調べ 、 結 果 を ブー ル 型 (Boolean) で 


O 


rsMissing( 引 | 数 ) 


TSNu エ 1 
式 に Null 値 が 含ま れ て いる か どう か を 調 
べ 、 結 果 を ブー ル 型 (Boolean) で 返す 。 


rsNu11 ( 式 ) 


エ SNUum ら G+ ュ ユ ご 
式 が 数 値 と し て 評価 で きる か どう か を 調 
べ 、 結末 を ブー ル 型 (Boolean) で 返す 。 


TsNumeric( 式 ) 


T エ SO わら GC 
語 別 子 が オブ ジェ クト 変数 を 表し て いる 
か ご ど つ か を 示す ブー ル 型 (Boolean) の 
値 を 返す 。 


rsObject ( 変数 ) 


関数 リフ ァ レ ン 


り O1n 
配列 に 各 ま れる 各 要 素 の 内 部 文字 列 を 結 
右 し て 作成 され る 文字 列 を 返す 。 


Joxn (結合 する 文字 列 を 含む 1 次 元 配列 
[, 文字 列 を 区 切る の に 使用 する 文字 ] ) 


L 


LEBOunQ 
配列 の 指定 され た 次 元 で 使用 で きる 最小 の 
添 子 を 、 長 整数 型 の 値 で 返す 。 


rBound (配列 変数 [, 添字 の 最小 値 を 調 
べ る 対象 と な る 配列 の 次 元 ) 


Ca8G 
し ァ ベ ッ ト の 大 文字 を 小文字 に 変換 
る 。 


LCase( 文 字 列 ) 
L ら 王 


文字 列 の 左端 か ら 指 定 し た 文字 数 分 の 文 
子 列 を 返す 。 


Left (文字 列 , 取り 出す 文字 列 の 文字 数 ) 
LG 上 七 選 


文字 列 の 左端 か ら 指定 し た バイ ト 数 分 の 
文字 列 を 取り 出す 。 


reft (文字 列 , 取り 出す 文字 列 の バイ ト 数 ) 
Len 


文字 列 の 文字 数 また は 変数 に 必要 な バイ 
ト 数 を 返す 。 


Len (文字 列 また は 変数 名 ) 
LOadP エ ご Cu とら 
指定 し た グラ フィ ッ ク を ロー ド す る 。 
LoadPicture( フ アイ ル 名 ) 
本 〇 ご 


開い た ファ イル 内 の 現在 の 読み 込み 位置 
また は 書き 込み 位置 を 返す 。 


Loc( フ ァイル 番号 ) 





付録 難 種 リ ファ レン 」 


e 





LOF 
Open ステ ー ト メン ト を 使用 し て 開い た 
ファ イル の 長 さ を バイ ト 単 位 で 返す 。 


LoFr( フ ァイル 番号 ) 


Log 
僅 精 度 浮動 小数 点数 型 の 自然 対数 を 返す 
至 條 演算 関数 。 


Log (数値 ) 


エエ ュ m 
指定 し た 文字 列 か ら 先 頭 の スペ ー ス を 削 
除 し た 文字 列 を 返す 。 


LTmrim( 駐 字 列 ) 
M 


M1qQ 
文字 列 か ら 指 定 し た 文字 数 分 を 返す 。 
Mida( 文 字 列 , 先頭 か ら の 文字 数 [, 取 り 
出す 文字 数 ] ) 


M ェ QB 
文字 列 か ら 指定 し た 文字 数 分 の 文字 列 を 
バイ ト 単 位 で 返す 。 


Mid( 文 字 列 , 先頭 か ら の バイ ト 数 [, 取 
り 出 す バ イト 数 ] ) 


M ュ inu ヒ G 
時 刻 の 分 を 表す 0 59 の 範囲 の 束 


O 


Minute (時 刻 ) 


MTRR 
ー 連 の 定期 的 な キャ ッシュ フロ ー ( 払 
いと 収益 ) に 基づい て 、 修 正 内 部 利益 率 


O 


MTRR( キ ャ ッシュ フロ ー の 値 , 支払 額 
に 対す る 利率 , 収益 額 に 対す る 利率 ) 


MOn モ Eh 
] 年 の 何 月 か を 表す 0 1 ら の 範囲 の 
整数 を 返す 。 


Month (日 付 ) 





MOnhName 
指定 され た 月 を 表す 文字 列 を 返す 。 


MonthName (月 を 示す 数 値 [, 月 名 を 首 
略す る か どう か を 表す ブー ル 値 ] ) 


MSBO 交 
ダイ アロ グ ボッ クス に メッ セー ジ を 表 
示し 、 ど の ボタ ン が クリ ッ ク さ れ た の か 
を 示す 値 を 返す 。 


MsgBox( メ ッ セ ー ジ [, ボタ ン の 種類 ] 
[, ウィ ンド ウタ イト ル ] [, ヘル プ フ 
ァイル 名 , ヘル プ コ ン テ キ スト 番号 ) 


N 


NOW 
コン ビ ピュータ の シス テム の 日 付 と 時 刻 の 
設定 に 基づい て 、 現 在 の 日 付 と 時 刻 を 返 
す 。 


NOW 


NPer 
定額 の 支払 い を 定期 的 に 行い 、 利 率 が 一 
RF こ と 仮定 し て 、 投 資 に 必要 な 期間 


NPer( 利 率 , 毎回 の 支払 額 , 現在 の 投 
本 現金 の 収支 [, 支払 
] ] ) 


NPV 
ー 連 の 定期 的 な キャ ッシュ フロ ー (支払 
いと 収益 ) と 割引 率 に 基づい て 、 投 資 の 
止 味 現在 価値 を 返す 。 


Npv (割引 率 , キャ ッシュ フロ ー の 値 ) 
0 


〇 ご 
引数 に 指定 し た 値 を 8 進数 で 表す バリ 
アン ト 型 (内 部 処理 形式 String の 
Variant) の 値 を 返す 。 


oct (数 値 ) 








ロ 


Pa エエ ヒュ ヒ ユ On 
ある 数 値 が 、 区 切ら れ た 複数 の 範囲 の う 
ち 、 ど の 範囲 に 各 ま れる か を 示す バリ ア 
ント 型 の 文字 列 を 返す 。 


Part ュ ton (評価 する 整数 , 対象 と な 
る 男 囲 全体 の 先頭 と な る 整数 , 対象 と な 
る 男 囲 全体 の 未 尾 こと な る 整数 , 対象 と 
な る 範囲 全体 を 等 分 する 範 囲 の 長 さ を 
示す 整数 ) 


Pmt 

定額 の 支払 い を 定期 的 に 行い 、 利 率 が 一 
定 で ある と 仮定 し て 、 投 資 に 必要 な 定期 
文 払 額 を 返す 。 


Emt (利率 , 支払 回 数 , 合計 金額 [, 収 
支 [, 支払 期日 ] ) 


PPmt 

定 額 の 支払 い を 定期 的 に 行い 、 利 率 が 一 
定 で ある と 仮定 し て 指定 し た 期 に 支払 わ 
れる 元 金 を 返す 。 


EBmt (利率 , 元 金 支払 額 を 求め る 期 , 
支払 い 回 数 , 合計 金額 [, 現金 の 収支 
[, 支払 期日 ]] ) 


PV 
定額 の 支払 い を 定期 的 に 行い 、 利 率 が 一 
定 で ある と 仮定 し て 、 投 資 の 現在 価値 を 


O 


EV( 利 率 , 支払 い 回 数 , 支払 額 [, 現金 
の 収支 [, 支払 期日 ]] ) 


Q 


OBCOo ユ or エ 
指定 し た 色 番 号 に 対応 する RGB コー ド 
を 表す 長 整 数 型 の 値 を 返す 。 


OBCo1or( 色 番 号 ) 
R 


Rate 
投資 期間 を 通じ て の 利率 を 返す 。 


関数 リフ ァ レ ン 


Rate( 支 払い 回 数 , 毎回 の 支払 額 , 支 
払い や 収益 [, 現金 の 収支 [, 支払 い 期 
日 [, 利率 の 推定 値 ] ] ] ) 


RGp 上 LaC@ 
指定 され た 文字 列 の 一 部 を 、 別 の 文字 列 
で 指定 され た 回 数 分 で 置換 する 。 


Rep1ace( 半 換 する 文字 列 を 含む 文字 列 
式 , 検索 する 文字 列 , 置換 する 文字 列 
[, 検索 開始 位置 [, 置換 する 文字 列 数 
[, 文字 列 比 較 の モー ド ]11) 


RGB 
色 の RGB 値 を 表す 長 整数 型 の 値 を 返す 。 
RGB (red 値 , green 値 , b1ue 値 ) 
R1qJh 


文字 列 の 右端 か ら 指 定 し た 文字 数 分 の 文 
子 列 を 返す 。 


Right (文字 列 , 取り 出す 文字 列 の 文字 数 ) 


RnQ 
里 精 度 浮動 小数 点数 型 (Single) の 乱数 
を 返す 。 


Rnd [数 値 (省略 可能 ) ] 


ROund 


人 


Round( 丸 め を 行う 数 式 [, 丸 め を 行う 
小数 点 以下 の 桁 数 を 表す 数 値 ] ) 


RT エ ュ m 
指定 し た 文字 列 か ら 未 尾 の スペ ー ス を 削 
陸 し た 文字 列 を 返す 。 


RTrim( 文字 列 ) 
ご 


SeGCOnQd 
本 0 一 598 の 範囲 の 整数 を 


O 


Second ( 時刻 ) 
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に 1【 ニ !=】: 
Open ステ ー ト メン ト を 使用 し て 開い た 
ファ イル の 現在 の 読み 込み 位置 また は 書 
さき 込み 位置 を 返す 。 


seek( フ ァイル 番号 ) 


に )< 
引数 に 指定 し た 値 の 符号 を バリ アン ト 型 
の 値 で 返す 数 値 演算 関数 。 


sgn (数 値 ) 


She11 
指定 し た プロ グラ ム を 実行 する 。 


She11 (プログ ラム 名 [, 起 動 時 の ウィ ン 
ドウ スタ イル 1] ) 


1n 
指定 し た 角度 の サイ ン を 倍 精 度 浮動 小数 
点数 型 の 値 で 返す 数 値 演算 関数 。 


Sin( 角 度 (単位 ラジ アン ) ) 


ら LN 
定額 法 を 用 いて 、 資 産 の 1 期 当 た り の 減 
価 償却 費 を 返す 。 


SrN (資産 を 購入 し た 時 点 で の 価格 , 耐 
用 年 数 を 経た 後 で の 資産 の 価格 , 資産 
の 耐用 年 数 ) 


paC@ 
指定 し た 数 の スペ ー ス か ら な る 文字 列 を 
返す 文字 列 処理 関数 。 


Space (数 値 ) 


Sp ご 

Print # ステ ー ト メン ト ま た は Print メ 
ゾ ソ ッ ド と 共に 使用 し 、 指 定 し た 数 の スペ 
ー ス を 挿入 する ファ イル 入出 力 関数 。 


Spc (スペース の 数 ) 
Sp エエ ユヒ 


各 要 素 ご と に 区 切ら れ た 文字 列 か ら 1 次 
元 配列 を 作成 する 。 


Sp1it( 区 切り 文字 を 含ん だ 文字 列 式 [, 
文字 列 の 区 切り 文字 [, 返す 配列 の 要素 
数 [, 駐 字 列 比較 の モー ド ]1]1] ) 


ら エ 
至 式 の 平方 根 を 倍 精 度 浮動 小数 点数 型 の 
値 で 返す 数 値 演算 関数 。 


Sqr (数 値 ) 


七 了 エ 
数 式 の 値 を 文字 列 で 表し た 値 (数 字 ) で 
返す 文字 列 処理 関数 。 


Str( 数 値 ) 


S ヒ 了 COmp 
文字 列 比 較 の 結果 を 返す 。 


StrComp (文字 列 1, 文字 列 2[, 文字 
列 比 較 の モー ド ] ) 


ど ヒ 了 て CO 上 ロ 
文字 列 を 指定 し た 形式 に 変換 する 。 


StrCony( 文 字 列 , 変換 形式 ) 


ヒ 了 民 G び らら 8@G 
指定 され た 文字 列 の 文字 の 並び を 逆 に し 
た 文字 列 を 返し ます 。 


StrReverse( 文 字 の 並び を 逆 に する 文 
子 列 ) 


S エ ュ mdJ 

指定 し た 文字 コー ド の 示す 文字 、 ま た は 
文字 列 の 先頭 文字 を 、 指 定 し た 文字 数 だ 
け 並 べた 文字 列 を 返す 文字 列 処理 関数 。 


String( 文 字数 , 文字 列 の 先頭 文字 ) 


Sw ュ ユヒ で ご h 
式 の リス ト を 評価 し 、 リ スト の 中 で 真 と 
な る 最初 の 式 に 関連 付け られ た バリ アン 
ト 型 の 値 ま た は 式 を 返す 。 


Switoh( 式 -1, 評価 -1[, 式 -2, 計 
価 -2 ... [, 式 -n, 評 価 -n] 1] ) 


ら YD 
定額 進 減 法 を 使っ て 、 指 定 し た 期 の 減価 
償 序 費 を 返す 。 








syp( 資 産 を 購入 し た 時 点 で の 価格 , 面 
用 年 数 を 経た 後 で の 資産 の 価格 , 資産 
の 耐用 年 数 , 減価 償却 費 を 計算 する 期 ) 


ab 
Print # ステ ー ト メン ト ま た は Print メ 
ゾ ソ ッ ド と 共に 使用 し 、 次 の 文字 の 出力 位 
置 を 移動 する ファ イル 入出 力 関数 。 


mab[ ( 桁 数 ) ] 
an 


指定 し た 角度 の タン ジェ ント を 倍 精 度 浮 
動 小 数 点数 型 の 値 で 返す 数 値 演算 関数 。 


man( 角 度 (単位 ラジ アン ) ) 


1mG 
現在 の シス テム の 時 刻 を 表す バリ アン ト 
型 の 値 を 返す 。 


1me 

1m ら Gr 
午前 0 時 か ら 経 過 し た 秒 数 を 表す 単 精度 
浮動 小数 点数 型 の 値 を 返す 。 
1me エ 

1meS ら G+ ュ a1 
引数 で 指定 し た 時 、 分 、 お よび 秒 に 対応 
する 時 刻 を 含 び バリ アン ト 型 の 値 を 返 


mimeSeria1 (時 , 分 , 秒 ) 
1meVa1u@G 
時 刻 を 表す バリ アン ト 型 の 値 を 返す 。 
mimeva1ue (時 刻 ) 
エエ ュ m 


指定 し た 文字 列 か ら 先頭 と 未 尾 の 両方 の 
スペ ー ス を 削除 し た 文字 列 を 返す 。 


mim( 文 字 列 ) 


TypDeName 
変数 に 関す る 情報 を 提供 する 文字 列 型 の 
文字 列 を 返す 。 


関数 リフ ァ レ ン 


rypeName (変数 名 ) 
U 


UBoundQ 
配列 の 指定 され た 次 元 で 使用 で きる 添字 
の 最大 値 を 、 長 整数 型 の 値 で 返す 。 


UBound (配列 名 [, 配列 の 次 元 ] ) 
UCa8@ 


指定 し た アル ファ ベッ ト の 小文字 を 大 文 
子 に 変換 する 文字 列 処理 関数 。 


UCase( 文 字 列 ) 
V 


Va1 
指定 し た 文字 列 に 各 ま れる 数 値 を 適切 な 
デー タ 型 に 変換 する 。 


Va1 (文字 列 ) 

VarType 
変数 の 形式 を 表す 整数 型 の 値 を 返す 。 
Varrype ( 変数 名 ) 


W 


WeekdaY 
何 曜日 で ある か を 表す 整数 を 表す バリ ア 
ント 型 の 値 を 返す 。 


時 半生 [ 週 の 第 1 日 目 の 曜 
] ) 


WeekQdayName 
指定 され た 曜日 を 表す 文字 列 を 返す 。 


weekdayName (曜日 を 表す 数 値 , 曜日 名 
の 弟 略 , 曜日 の 最初 の 日 ) 


Yea エ 
年 を 表す バリ アン ト 型 の 値 を 返す 。 


Ya エ 
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以降 2s5 まで 「 


9 
re | へ | 三 | |n| < コス mp キロ |mlin 上 | へ 


時計 時計 央 時 時 


@ 
0 
O 
員 8 
と 一 レー | ~ つ K| で | 中 | 選 | | ロロ FI で Im 円 | 選 ooE こ BBE っ EoSEpE Ih | 一 | 本 


時 提 遇 明正 朋 遇 有 昌 着 下 日 


財 
K LULLLLLLLUUUULLLLLLLLUIL 


川 略 つ | 品 |Q|m ら の | の 6| ト | の oOI の | の | ロ ざ | no|F| の | の ゴ ざ | nlo|F ト | | ロ ざ い 
QIQIQIQ QIQIQIQIQI の Im の ol の lmlImlm の Im ざ ざ | ざ | ざ | ざ | マ の | の の I の 
員 目 コロ | ロ | ロ | ロコ | ロロ | ロロ | ロロ | ロ | ロ | | | ロロ ゴ | | ロロ | ロ ロロ | ロ ゴロ ゴ 


以 ど r1 り 


川 W | ロ ム の | の 6| に IOIQ の QlI の IS|mIoIFRIOI の 
い | @O ゴロ い ら | の ら | ら | の | の | 〇 の dl dl dmln 
有 Oo| の の 品 | ロ ei wl wl wl ei | | ロロ | ロロ | ロロ 


: PBBBBBBEBPEBBEBEEEBEPEEEBEEBEPBEEBREBR 


EEEEEBRHBEEEEEEEEEEGEIHEEEEUEEEEEEEHH 


ライ ン フ ィ ー ド 、 キ ャ リッ ジ 


13 は 制御 文字 で 、 そ れ ぞ れ バ ックス ペー ス 、 タ ブ 、 


10、 


[DF ] 
[Space] 


※| | の 文字 は Windows で は 使用 で き な い 文字 で す 。 


Chr 関数 な ど を 使っ て 文字 を 番号 値 で 参照 する 時 に は ASCII コー ド を 使用 し ます 。 
※ コ ー ド 番号 8、9、 
リタ ー ン で す 。 


ASCII 文字 コー ド 一 覧 





(5 





ASCII 文字 コー ド 一 覧 プ ゾ デ ー タ 型 一 


テー タ 型 一 覧 


変数 を 宣言 する と き に は デー タ 型 を 指定 し て 、 変 数 を どの よう な 形式 で 格納 する か を 定 
め ま す 。 型 に よっ て 扱え る 値 の 範囲 や サイ ズ は 決ま っ て いま す 。Visual Basic の デー 
夕 型 は 以下 の よう に な っ て いま す 。 








Amy 人 4 サイ ス 


電 囲 
バイ ト 型 (Byte) 1 バイ ト 0-655 





















整数 型 (Integer) ら ど バ イト -3.768 ~- 32.767 ア 
長 整 数 型 (LOng) 4 バイト - ど 14/7.483.648 一 .147.483.647 


単 精度 浮動 小数 点数 型 -3.402823E38 一 -1.401298E-45 
(Single) 


ブー ル 型 (Boolean) 真 (True) ま た は 偽 (False) 
U 


1.401 ど 98E-45 一 3.40 ど 8 ど 3E38 


倍 精 度 浮動 小数 点数 型 8 バイ ト - 1 .79769313486232E308 一 

(DouDI@) - 人 4.94065645841 ど 47E-324 
4.94065645841 ど 47E-324 一 
1.797693 13486232E308 


通貨 型 (Currency) 8 バイト - づ どど . づ d/.G03.685.47/7.5808 一 
どど. づ d/. ど 03.685.477.5807 


10 進 型 (Decimal) 14 バイ ト (小数 部 分 を 持た な い 数 値 の 場合 ) 
-/9.558.162.514.564.337.593.543.950.335 一 
/9.558,.168.5 14.264.337.593.543.950.335 
(小数 点 以 下 28 桁 の 数 値 の 場合 ) 
-/.9 ど 816 ら 5 14264337593543950335 ー 





/.9 ど ど ご 816 ど 5 142643375935439850335 
(絶対 値 の 最小 値 は 0 を 除い た 場合 ) 
0.000000000000000000000000000 1 


日 付 型 (Date) 西暦 100 年 1 月 1 日 西暦 9999 年 1 月 31 日 
オブ ジェ クト 型 (Objeot) オブ ジェ クト を 参照 する デー タ 型 
1 
I 





ED ys 
バリ アン ト 型 (Variant)( 抑 値 ) 倍 精 度 浮動 小数 点数 型 (Double) の 範囲 と 同じ 


文字 列 型 (String)( 可 変 長 ) 10 バイ ト 0 一 6GB 
バリ アン ト 型 (Variant) らら バイ ト 可変 長文 字 列 型 (String) の 範囲 と 同じ 
(文字 列 ) + 文字 列 長 

日 


ユー ザー 定義 型 要素 に 依存 | それ ぞ れ の 要素 の 範囲 は その デー タ 型 の 範囲 と 同じ 


※ 配 列 に は 、 ら 0 バイ ト の メモ リ と 難 配列 の 次 元 で と に 4 バイト 、 そ し て デー タ そ の も の の バイ ト 数 を 合計 し 
た メモ リ が 最低 限 必要 で す 。 
※ 配 列 を 往 お バリ アン ト 型 に は 、 配 列 だ け の と きよ り 、12 バイ ト 大 きい メモ リ か が 必要 で す 。 
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エラ ー 番 号 一 覧 (一 部 ) 





番号 メッ セー ジ 

3 Return に 対応 する GOSubD が あり ませ 
ん 。 

プロ シー ジャ の 呼び 出し 、 ま た は 引数 が 
不正 で す 。 

オー バー フロ ー し まし た 。 

メモ リ が 足り ませ ん 。 

イン デック ス が 有効 範囲 に あり ませ ん 。 
この 配列 は 固定 され て いる か 、 ま た は 一 
時 的 に ロッ ク さ れ て いま す 。 

0 で 除算 し まし た 。 

13 型 が 一 致し ませ ん 。 

14 文字 列 領域 が 不足 し て いま す 。 

式 が 複雑 すぎ ます 。 

17 要求 され た 操作 は 実行 で を ませ ん 。 

ユー ザー に よる 割り 込み が 発生 し まし た 。 
ら 0 エラ ー が 発生 し て いな いと き に Resume 









































を 実行 する こと は で きま せん 。 
Sub、Function、 ま た は Property が 定 
義 さ れ て いま せん 。 
DLL の クラ イア ント アプ リケーション が 
多 す ぎ ま す 。 
| 4B |DLL 読 み 込み 時 の エラ ー で す 。 
| 51 | 内 部 エラ ー で す 。 
ファ イル 名 また は 番号 が 不正 で す 。 
| 54 | ファ イル モー ド が 不正 で す 。 
| 55 | ファ イル は 既に 開か れ て いま す 。 
| 5B | 既に 同名 の ファ イル が 存在 し て いま す 。 
| 59 | レコード 長 が 一 致し ませ ん 。 
| 61 | ディ スク の 空き 容量 が 不足 し て いま す 。 
ファ イル に これ 以上 デー タ が あり ませ ん 。 
| BB | デバ イス が 準備 され て いま せん 。 
パス が 見 つか り ま せん 。 








トラ ッ プ で きる 主 な エラ ー 番 号 と その メッ セー ジ の 一 覧 で す 。 





メッ セー ジ 

オブ ジェ クト 変数 また は With ブロ ッ ク 
変数 が 設定 され て いま せん 。 

982 
93 


申 
JI 














97 オブ ジェ クト が 定義 クラ ス の イン スタ ン 
ス で は な い 場 合 、 こ の オブ ジェ クト に 関 
する フレ ンド 関数 は 呼び 出せ ませ ん 。 

298 

必要 な テン ポラ リフ ァイル を 作成 で きま 
せん 。 

325 

不正 な パラ メー タ で す 。 配列 に 書き 込め 
ませ ん 。 

335 | シス テム レジ スト リ に アク セス で きま せ 
ん 。 

336 | ActiveX コン ポー ネン ト が 正しく 登録 さ 
れ て いま せん 。 

33/ | ActiveX コン ポー ネン ト が 見 つか り ま せ 
ん 。 

338 | ActiveX コン ポー ネン ト が 正常 に 実行 さ 
れ ま せん で し た 。 

360 | この オブ ジェ クト は 既に ロー ド さ れ て い 
ます 。 

361 | この オブ ジェ クト は 、 ロ ー ド また は アン 






ロー ド す る こと は で きま せん 。 
363 | 指定 され た ActiveX コン トロ ー ル が 見 つ 
か り ま せん 。 













364 

う 368 | ファ イル は 古い 形式 で 作成 され て いま す 。 
この プロ グラ ム に は 新しい 形式 の ファ イ 
ル が 必要 で す 。 

37 1 指定 され た オブ ジェ クト は 、Show メソ 


ッ ド の オー ナー フォ ー ム と し て 使用 で ぎ き 
ませ ん 。 


プロ パテ ィ の 値 が 不正 で す 。 
プロ パテ ィ 配 列 の イン デック ス が 不正 で 
基 し 














る メッ セー ジ 
382 ど | プロ パテ ィ は 、 実 行 時 に は 設定 で きま せ 


| 


うつ ご づ 
うら 


プロ パテ ィ は 値 の 取得 の み 可 能 で す 。 
この プロ バテ ィ に は 配列 の イン デック ス 
が 必要 で す 。 


| 387 | プロ バテ ィ は 値 を 設定 で きま せん 。 

プロ パテ ィ は 実行 時 に 値 の 取得 は で きま 
せん 。 

394 | プロ バ パティ は 設定 の み 可能 で す 。 


既に フォ ー ム は 表示 され て いま す 。 モ ー 
ダル に で きま せん 。 

02 | 一 番手 前 (前面 ) の モー ダル フォ ー ム を 
先 に 閉じ て くだ さい 。 

オブ ジェ クト を 利用 で きま せん 。 


| 


422 | プロ パテ ィ が 見 つか り ま せん 。 
せん 。 

| 424 | オブ ジェ クト が 必要 で す 。 

| 4285 | オブ ジェ クト の 使い 方 が 不正 で す 


ActiveX コン ポー ネン ト は オブ ジェ クト 
を 作成 で きま せん 。 

クラ ス は オー トメ ーション を サポ ー ト し 
て いま せん 。 

オー トメ ーション の 操作 中 に ファ イル 名 
また は クラ ス 名 を 見 つけ られ ませ ん で し 
た 。 

オブ ジェ クト は 、 こ の プロ パテ ィ ま た は 
メソ ッ ド を サポ ー ト し て いま せん 。 


| オー トメ ーション エラ ー で す 。 


リモ ー ト プロ セス 用 の タイ プラ イブ ラリ 
また は オブ ジェ クト ライ ブラ リ へ の 参照 
は 失わ れ ま し た 。 

ト 


オー トメ ーション オブ ジェ クト に は 既定 
値 が あり ませ ん 。 


430 


つづ ど 


トト 
(Q) 
00 





〇 


01 


EE 芽 


いま せん 。 
し て いま せん 。 


オブ ジェ クト は 現在 の 国 別 情報 の 設定 を 
サポ ー ト し て いま せん 。 
8 | 名 前 付き 引数 が 見 つか り ま せん 。 
9 | 引数 は 省略 で きま せん 。 ま た は 不正 な プ 
ロバ ティ を 指定 し て いま す 。 

引数 の 数 が 一 致し て いま せん 。 ま た は 不 
正 な プロ パテ ィ を 指定 し て いま す 。 






1 出 5 


エラ ー 番 号 一 





メッ セー ジ 

この オブ ジェ クト が コレ クシ ョ ン で は あ 
り ま せん 。 

序 数 が 不正 で す 。 

関数 は 指定 され た DLL に は 定義 され て い 
ませ ん 。 

コー ドリ ソー ス が 見 つか り ま せん 。 


ち 







459 





| コー ドリ ソー スズ の ロッ クエ ラー - 
457 | この キー は 既に この コレ クシ ョ ン の 要素 
に 割り 当て られ て いま す 。 
458 |Visual Basic で サポ ー ト され て いな い オ 


ー ト メー ショ ン が 変数 で 使用 され て いま 





この コン ポー ネン ト で は 、 イ ベン ト は サ 
ポー ト さ れ て いま せん 。 

クリ ッ プ ボー ド の デー タ 形 式 が 不正 で す 。 
テー タ の 形式 が 一 致し ませ ん 。 





480 IAutoRHedraw イメ ー ジ を 作成 で きま せ 
ん 。 
| 4B1 | ピク チャ が 不正 で す 。 
48 ど プリ ンタ エラ ー で す 。 








483 | プリ ンタ ドラ イ バ は 指定 され た プロ パテ 
ィ を サポ ー ト し て いま せん 。 
シス テム か ら プ リン タ 情 報 を 受け る と き 
に 問題 が 発生 し まし た 。 プ リン タ が 正 し 
く 設定 され て いる か を 確か め て くだ さい 。 
| ピク チャ の 形式 が 不正 で す 。 
フォ ー ム の イメ ー ジ を この プリ ンタ ー で 
印刷 する こと は で きま せん 。 

0 | クリ ッ プ ボー ド を 空 に で きま せん 。 
52] | クリ ッ プ ボー ド を 開け ませ ん 。 
735 | テン ポラ リフ ァイル に 保存 で きま せん 。 
検索 文字 列 が 見 つか り ま せん で し た 。 
置換 後 の 文 字 列 が 長 すぎ ます 。 
メモ リ が 不足 し て いま す 。 
オブ ジェ クト が あり ませ ん 。 
クラ ス が 設定 され て いま せん 。 
オブ ジェ クト を アク ティ ブ に で きま せん 。 
埋め 込み オブ ジェ クト が 作成 で きま せん 。 
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746 
31001 
31004 


CO1OIO ヽ J O1 
〇 | 〇 | の O1 
COITO| 一 

「O| ヽ JIO00 


31036| フ ァイル へ の 書き 込み 中 に エラ ー が 発生 
し まし た 。 

31037| フ ァイル の 読み 込み 中 に エラ ー が 発生 し 
まし た 。 








付録 癌 季 リ ファ レン の 





プロ ジェ クト ファ イル の 形式 


Visual Basic で は 、 コ ント ロー ル を 配置 し た り 、 プ ロジ ェクト ファ イル を 実行 し た 時 
な ど に いく つか の ファ イル が 作成 され ます 。 プ ロジ ェクト や プロ グラ ム に よっ て 必要 な 
ファ イル は 実 な り ま す 。 


@ デ ザイ ン 時 に 作ら れる ファ イル お よび その 他 の ファ イル 





















拡張 子 説明 拡張 子 説明 
| .Das | 標準 モジ ュー ル 。 。 | | .og | 読み 込み エラ ー 時 に 生成 され る ログ 
.Oca | コン トロ ー ル タイ プラ イブ ラリ キャ ッ シ 
ユー ザー コン トロール ファ イル ュ フ ァイル 
ユー ザー コン トロ ー ル バイ ナリ ファ イル プロ パテ ィ ベ ペー ジフ ァイル 
ddf | ディ スト リ ビ ュ ーション ウィ ザー ド の 
CAB 情報 ファ イル リモ ー ト オー トメ ーション タイ プラ イブ 
| :dep | セッ ト ア ッ プ ウィ ザー ド の 依存 ファ イル | ラリ ファ イル 
| .dob | ActiveX ドキ ュ メ ント フォ ー ム ファ イル | | .vbg | Visual Basic グル ー プ プロ ジェ クト ファ 
を ActiveX ドキ ュ メ ント バイ ナリ フォ ー ム - イル 
ファ イル 
| :dex | Active デザ イナ バイ ナリ ファ イル 
ディ スト リ ビ ュ ーション ウィ ザー ド の スク .VDw | Visual Basic プロ ジェ クト ワー クス ペー 
フォ ー ム モジ ュー ルフ ァイル ウィ ザー ド 起 動 フ ァイル 
バイ ナリ フォ ー ム ファ イル WebClass HTML テン プレ ー ト 






人 @ 実 行 時 に 生成 され る ファ イル 














拡張 子 説明 拡張 子 説明 
イン プロ セス ActiveX コン ポー ネン ト ActiveX ドキ ュ メ ント ファ イル 
実行 可能 ファ イル また は ActiveX コン ポ .Wot WebClass HTML テン プレ ー ト 


ー ネ ン ト 
ActiveX コン トロ ー ル 


0CX 





ショ ー ト カッ ト 一 覧 
シン ョ ー ト カッ ト を 使う と 作業 を 効率 的 化 で きま す 。 
の デザ イン 時 の ショ ー ト カッ ト 













キー 説明 キー 小 
タス ク の 終了 実行 を 人 上 


コン トロ ー ル な 柳生 














プロ ジェ クト ファ イル の 形式 プシ ョ ー ト カッ ト 一 


キー 5 
| End | 最後 の ブロ バテ ィ に 移動 
オブ ジェ ク ド ブ プラ ウザ 


@ コ ー ド 作成 時 の ショ ー ト カッ ト 

















ビニ 由 に | 
に 移動 
| CtrtP | 印刷 。  《 








上衣 

1 行 す ずつ コー ド を 実行 
ショ ー ト カッ ト を 表示 
始め か ら 再 実行 


プロ バテ ィ の 値 の 切り 替え 


01 





NM 


00 


Home 
PageDown 
PageUp 
Shift+F10 
Shift+F5 
ohift+F8 
ohift+ TaD 
Shift+ クリ ッ ク 
Tab 

ダブ ルク リッ ク 













































キー 説明 
Ctrl+Shift+F9 すべ て の ブレ ー ク ポイ ント 
存 信 リ ア 
| Ed ネ こ モー 行末 に 務 科 = 
定義 の 表示 
再 実生 
イン テン ト 





付録 間 種 リフ ァ レ ン 2 









る メニ ュー 作成 時 の ショ ー ト カッ ト 














キー に キー 説明 
リス ト の 開閉 Alt+U メニ ュー 項目 の 階層 レベ ル 


リス ト の 開 義 を 維持 し た まま 上 に 移動 






メニ ュー 項目 の 階層 レベ ル | | End _ | リス ト 内 の 最後 の 項目 に 移動 
を 維持 し た まま 下 に 移動 Enter メニ ュー 項目 を 前 方 に 向 か 
メニ ュー 項目 を メニ ュー 階 っ て 順に 移動 
層 の 上 位 レ ベル に 移動 


Alt+R メニ ュー 項目 を メニ ュー 階 Home リス ト 内 の 最初 の 項目 に 移動 
層 の 下位 レベ ル に 移動 


の ウォ ッ チ ウィ ンド ウ の ショ ー ト カッ ト 
















キー 及 に キー 貞 | 
Ctrl+W [ウォ ッ チ 式 の 追加 ] ダイ F6 ウォ ッ チ ウィ ンド ウ と イミ 
選択 され た ウォ ッ チ 値 の 左 り 替 え 


側 に プラ ス 記 号 (+) また は 
マイ ナス 記号 (-) が ある と 
さ に 、 展 開 ま た は 折り た た 


Enter 
み を 行う 


Shift+F10 
オブ ジェ クト ブラ ウザ を 表示 


選択 され た ウォ ッ チ 式 を 表 
示 


シン ショート カッ トメ ニュ ー を 
表示 










@$ イ ミディ エイ トウ ィ ン ド ウ の キー ボー ド シ ョ ー ト カッ ト 


キー 説明 キー 説明 
エラ ー 処 理 ル ー チ ン を 実行 キャ リッ ジリ ター ン を 挿入 


する か 、 呼 び 出し 側 の プロ Ctrl+Home イミ ディ エイ トウ ィ ン ド ウ 
シー ジャ に エラ ー を 返す の 先頭 に カー ソル を 移動 


Alt+F8 エラ ー 処 理 ル ー チ ン を シン Ctrl+L [呼び 出し 履歴 ] ダイ アロ 
グル ステ ッ プ で 実行 する か 、 グ ボ ックス を 表示 (中 断 モ 
呼び 出し 側 の プロ シー ジャ ー ド 時 の み ) 


に エラ ー を 返す | Del  _ | 選択 され た 文字 列 を 削除 


Ctrl+End イミ ディ エイ トウ ィ ン ド ウ Enter 選択 され た コー ド 行 を 実行 
の 最後 に カー ソル を 移動 











練習 問題 の 解答 (Lesson1 一 Lesson 


ず 練習 問題 の 解答 








Lessoml・<c<A1 (O<A-01.vbp) 
メッ セー ジ ボ ッ クス の 文字 を 変え る に は 、MsgBox の 後ろ の 文字 を 変更 し ます 。 表 示 
する 文字 を 必ず "(ダブル クォーテーション ) で 囲み ます 。 


P ェ ュ 1ya も te Sub Commmand1 C1iock( ) 
MsgBox "こん に ち は 、 み な さん !* 
正 nd Sub 


Lessom*<A1 (O< な A-02.vDp) 

コマ ンド ボタ ン の 表面 の 文字 は 、[Caption] プロ パテ ィ で 設定 し ます 。 

[終了 ] ボタ ン を クリ ッ ク し て 、 プ ロバ パテ ィ ウ ィ ン ド ウ で [Caption] プロ パテ ィ に 設 
定 さ れ て いる 文字 を 変更 し ます 。 


ST EE Pi 
す 』 下 7 イ ー 


niilii- uu と ズ ョ 


ee CommandButon イー ( マ [ 
















全体 | 項目 別 | 
| の ジェ ト 名 ) Command2 SE 
1 選 DD ら ョ F ョ ロ ご ら 1 - 3D 

BackColcr | &H8UHHnHUF& 


ン ancel Fa== 


ee 閉じ ミー 
放 ( い ュー っ ー ュ dd ュ fkap To 
lessom ろ AT (OSA-0 う .vbp) 


ラベ ルコ ント ロー ル の 背景 色 は 、[BackColor] プロ パテ ィ で 設定 し ます 。 


ーー ドー いや ーー つか つう や お うる ーー つか こら つ つつ 1 つっ 


' Lalee Labsl 
全体 | 項目 史 | 
( ま ジェ ルト 名 ) 


ここ を ツン リック 
一 覧 か ら 黄 緑色 を 選択 





付録 間 種 リ ファ レン 








Lessom う 4A2 (O&<A-0 う .-vbp) 
フォ ント の 種類 は [Font] ブロ パテ ィ で 指定 し ます 。 


38 





Lessom 人 < で A1 (OS&A-042.vbp) 
コマ ンド ボタ ン が クリ ッ ク さ れ た と き に 、 ラ ベル コン トロ ー ル の 背景 色 を 変更 する の で 、 
コマ ンド ボタ ン の Click イベ ント プロ シー ジャ に 処 理 を 作成 し ます 。 


P ェ ュ vate Sub B1ue C1ick ( ) 
Labe11 .BacfkCo1or = &gHC00000 
End Sub 


Lessom 人 <A2 (OSA-04.vbp) 


ラフ ラベ ルコ ント ロー ル の 文字 の 色 を 変更 する に は 、 ラ ベル コン トロ ー ル の [ForeColor] 
プロ バテ ィ で 行い ます 。 





Pr ュ ゞ a モ te Sub Pink C1iock( ) 
Labe1 1 . 下 OreCo1or = &HFF80F 下 
nd Sub 


Lessom う AT (O&A-OS-vbp) 
イメ ー ジ コン トロール に 画像 を 設定 する に は 、[Picture] プロ パテ ィ に 使用 する 画像 
の ファ イル を 設定 し ます 。 














練習 問題 の 解答 (Lesson3 ~ー Lessong 


LessomG*…A1T (OS&A-OG.vbp) 
必ず 、 フ ァイル 名 を フル バス で 指定 し て くだ さい 。 以下 は 、 ド ライ ブ C に ある 
|Free.Dmp] と いう 名 前 の ファ イル を 指定 し て いま す 。 


P ェ ュ ゞ で a モ ee Sub Tmage1 C1iock( ) 

' 八 ス 名 は 自分 の コン ピュ ー タ に あわ せ て くだ さい 

エ made1 .P せ ご Cu い エ G = LOadP1Cu エ @ ( "で : 半 下 ree .bmp" ) 
End Sub 


Lessom プ AA1 (O&A-07.vbp) 

いずれ も 、 背 景色 の 設定 は [BackColor] プロ パテ ィ で 行い ます 。 必ず 変 更 す る コン ト 
ロー ル を 選択 状態 に し て か ら 、 プ ロ パ ティ を 設定 し ます 。 ピ ンク は 、「SHOO08080FFS」 
で す 。 





LessomS る AT (OSA-0S.vbp) 

フォ ー ム が ダブ ルク リッ ク さ れる と 、「DbIClick」 と いう イベ ント が 発生 し ます の で 、 
この イベ ント プロ シー ジャ 「Form_DbIClick()」 に 、 フ ォ ー ム の 背景 色 を 変更 する 処理 を 
記述 し ます 。 


P エ ュ び a モ 上 @G Sub Form Db1C1ick ( ) 
Form1 .BackCo1or = &HFFFF& 追加 し た コー ド 
End Sub 


P ェ ュ ゞ a モ e Sub Tmage1 C1iock( ) 
エ madG1 .BO ェ rd@GrS モ 1e = 1 
正 nd Su も 


Pr ュ ivate Sub Tmage1 Db1C1ick ( ) 
MsgBox "ダブ ルク リッ ク さ れ ま し た * 
エ made1 .BO エ deGrS モ 上 1e = 0O 

End Sub 





付録 各 種 リ ファ レン 





lessom の <・A1 (O<A-O ひ .vDp) 

MouseDown イベ バン ト プ ロ シー ジャ で は 、 マ ウス の 右 ボ タン が 押さ れる と 、 変 数 
Button に は 「2」 が 格納 され ます 。If ステ ー ト メン ト で 、 ク リッ ク さ れ た ボタ ン が 右 ボ 
タン ( ら ) か どう か を チェ ッ ク し 、 右 ボタ ン で あれ ば ラベ ルコ ント ロー ル の [Left] 
[Top] プロ バ パティ に 、 マ ウス の 座標 「X]」 と 「Y」 を 代入 し ます 。 


P エ ュ a モ 上 e Sub Form MouSeDowrrn ( Bu 上 上 om AS エ nEeder, ShiF モ 上 AS Tnmteqder, 
双 As Single, Y As Sing1e ) 
エエ Bu ヒ Eon = 2 Then 
Labe11 .TLeEF モ E = 文 
Labe11.TOpD =Y 
End TE 
End Sub 


lessom10 ・………A1 (O<A-1O.vYDp) 
メッ セー ジ ボ ッ クス を 使っ て マウ ス の 座標 位置 を 表示 する に は 、 マ ウス の 座標 位置 「X」 
と 「Y」 を 、 文 字 列 連結 漂 算 子 「&」 を 使っ て 文字 列 と つなげ ます 。 


P ェ エ ュ で a モ 上 Sub Form MouSeUp ( Bu ぃ 上 上 On AS エ nedeGr, ShiFF 上 AS Tnmtegder エ , 
双 As Sing1le, Y As Sing1e ) 
Dim Messagde AS 8 ヒエ ュ 1nqd 


エエ But も ton = 1 Then 
Message = "マウ ス の 位置 は " gg" "grY 
MsgBoxk Messagde 
End エモ 
正 nd Sub 


Lesson11 ……・A1 (O&A-11.vbp) 
線 の 種類 を 変更 する に は 、[DrawStyle] プロ パテ ィ を 使用 し ます 。 こ れ を 、 コ マン ド 
ボタ ン の Click イベ バン ト プ ロ シー ジャ で 行い ます 。 





Dim S ヒ a エ ヒ 又 AS エロ n ロ 上 GeGr 
Dim S ヒ a エ ヒ Y AS エロ n ロ 上 Ge 


P ェ ivyate Sub Command1 C1ick( ) 
DravwSty1e = 2 追加 し た コー ド 
End Sub 


Lessom12 AH1 (O 舌 A-12.vYDp) 
水色 の カラ ー バ パレット を 追加 する に は 、 ラ ベル コン トロール を 追加 し 、Click イベ ント 
プロ シー ジャ で 変数 CColor に 「11」 を セッ ト し ます 。 ま た 、 線 の 太 さ は 、 








練習 問題 の 解答 (Lesson9 ~ Lesson ] 


[DrawWidth] プロ パテ ィ の 値 を 「 フ | に 設定 し ます 。 


CCo1or = 11 


Private Sub riabe16 C1ick( ) d 追加 し た コー ド 
End Sub 


P エ ュ で a モ 上 @G Sub Form MouseMove ( Bu 上 on As Tnteger, ShiFE As Tnteger, 
メ As Sngl1e, Y As Sing1e ) 
Form1 。DrawW1dth = 7 - ほ ーーーーーー 
エエ Bu 上 モ 上 on = 1 Then 
PSe ( 文 , YY) , OBCo1or (CCo1or ) 
End エモ 
End Sub 


Lessom12 ・・・A2 (O< な A-122.vbp) 

イメ ー ジ コン トロ ー ル を フォ ー ム に 1 つ 配 置 し 、[Picture] プロ パテ ィ に 
[Erase01.ico」 を 設定 し ます 。 こ の イメ ー ジ の Click イベ ント プロ シー ジャ で 、 描 画 の 
処理 を 作成 し ます が 、 こ の と き 、 色 の 設定 に 「 フ 」 を 指定 し 、 フ ォ ー ム の 背景 色 と 同 色 で 
指 画 する よう に し ます 。 


Pr ュ va モ e Sub Tmage1 C1iok( ) 
CCotor = 7 
End Su も 


Lessom1 る ・……・A1T (O< な A-1 ろ .vbp) 
メニ ュー エディ タ を 使っ て 、 メ ニュ ー を 追加 する 練習 で す 。 


ll ファ ア ] 


ME 
| 新規 ff 成 
終了 (&x) 
| …J 取 り 

ーー ピー@c) 





付録 各 種 リ ファ レン の 





Lessom1 全 AH (O&A-14.vbp) 

ポッ プア ッ プ メニ ュー は 、 マ ウス の 右 ボ タン が 押さ れ た と き に 表示 され ます 。 処理 は 、 
フォ ー ム の MouseDown イベ ント プ ロ シ ー ジ ャ を 使い ます 。 

まず 、If ステ ー ト メン ト で 押さ れ た ボタ ン が 右 ボ タン か どう か を 判断 し ます 。 そ し て 、 
右 ボ タン で あれ ば PopuDMenu メソ ッ ド で 、[ 編 集 ] メニ ュー の [名 前 ] で 入力 し た オブ 
ジェ クト 名 を 指定 し ます 。 


Pr ュ iate Sub Form MouseDowr ( Bu 上 上 om AS エ nEeqger, ShiF モ As Tnteqger, 
メ As Single, Y As Sng1e ) 


エエ Bu モ on = 2 Then 


PopupMenu TDMEQd ュ it , で bPopupMenuR1 も dh 上 Bu 上 On 
End エモ 
End Sub 


Lessom1S う ・………・A1H (ひな A-1S.vbp) 

メニ ュー の キャ プシ ョ ン は 、[Caption] プロ パテ ィ に 文字 列 を 直接 指定 し ます 。 ま た 、 
If ステー トメ ント で メニ ュー が いく つ 追 加 さ れ た の か を チェ ッ ク し て お きま す 。 そ し て 、 
どら つめ が 追加 され た 時 点 で 、 コ マン ド ボ タ ン の Enabled] プロ パテ ィ を False に 設 
し ます 。 こ れ で 、 コ マン ド ボ ポタ ン は も う ク リッ ク す る こと が で き な く な る の で 、 メ ニュ ー 
を 追加 で きま せん 。 

メニ ュー を 追加 する Load ステ ー ト メン ト は 、 そ れ ぞ れ の 『f 文 の 中 で 実行 し て いま す 。 


Private Sub Command1 C1ick ( ) 
1COun モ = 1Coun セ E + 1 
エモ 1Coun 寺 上 = 1 "mhen 
Load SGpDa エ a ヒ 〇 エ ( エミ COun ) 
Separator(1) .Caption = "追加 " 
Else TEF 1Count = 2 "Then 
Load SGDa エ a 七 の ( 1CO 〇 un ) 
Separatcr( 2 ) .Caption = "FEH 刷 " 
Command1 . 正 nab1ed = Fa1se 
End エモ 
End Sub 


Lessom1G ・……A1H (O&A-1G.vbp) 

追加 され た メニ ュー が 選択 され た 場合 は 、 メ ニュ ー の Separator の Click イベ ント プ 
ロ シ ー ジ ャ が 呼び 出さ れ ま す 。 そ し て 、 そ の イベ ント プロ シー ジャ の 引数 「Index」 に 、 
何 番目 に 追加 ご れ た メニ ュー が 選択 され た の か 、 そ の 番号 が 格納 され て いま す 。 そ こ で 、 
Index の 値 を 調べ て 、If ステ ー ト メン ト で ラベ ルコ ント ロー ル の 色 を 変え る 処理 を 実行 し 
ます 。 








練習 問題 の 解答 (Lesson14 Lesson18 


P エ ュ ざ a 七 G SuD SGpDa エ a モ ヒエ C11ok( エ ndex As Tnteger ) 
Dim MSg AS St 上 エ ュ nd 


エエ Tndex = 2 "Then 


ho 1 。 下 の 〇 て GCO1O エ &HFF& 造 加 し た 
Labe1 1 .ForeCo1or = gHO か 
nd エモ 
Msg = Separatcr(Tndex) .Caption g "が 選択 され まし た 
Labe11 .Cap 上 on = MSq 
End Sub 


Lessom17 ……・A1 (O&A-17.vbp) 

メニ ュー エディ タ で 、[ こ の プロ グラ ム に つい ig ニュー を 追加 し 、 メ ニュ ー の 「 名 
前 』 を 「IDMAbout」 に し ます 。 そし て 、 こ の メニ ュー の Click イベ ント プロ シー ジャ で 、 
Form ら 2 を Show メソ ッ ド を 使っ て 表示 し ます 。 


P エ ュ ゞ で a モ ヒ G Su わ TDMADbout C1iock ( ) 
Form2 .Shovr 1 
正 nd Sub 


Lessom17 ・…・A2 (OA-17.vbp) 
フォ ー ム を 消去 する に は 、Unload ステ ー ト メン ト を 使い ます 。 


P ェ エ ュ ゞ a モ e Sub Command1 C1ick ( ) 
Unload Form2 
End Sub 


Lessom1S8 AT (O 和 <A-1S.vbp) 

① ゆ フォ ー ム に 、 ラ ベル コン トロ ー ル を 配置 し 、[Caption] プロ パテ ィ に 「Welcome」 
と いつ 文字 を 設定 し ます 。 

⑧⑥ タ イマ ー コ ント ロー ル を フォ ー ム に 配置 し ます 。 

③ フ ォ ー ム の Load イベ ント プロ シー ジャ で 、 タ イマ ー コ ント ロー ル の [Interval] プロ 
バテ ィ に 「100」 を 設定 し ます 。 ま た 、 変 数 x に 「5000」 を 代入 し ます 。 

④ 文 字 を 動か す に は 、 タ イマ ー コ ント ロー ル の Timer イベ ント プロ シー ジャ で 、 ラ ベル 

コン トロ ー ル の [Left] プロ パティ の 値 を 変え る こと で 座標 位置 を 変更 し て いき ます 。 





D1m ※ AS エエ nm 上 ed@Gr 


P エ ュ vae Sub Form Load ( ) 
1me と 1 . エ ロモ Gya11 = 100 
= 5000 





付録 間 種 リフ ァ レ ン 1 








End Sub 
P ェ ュ ゞ で a モ e Sub Timer1 Timer( ) 
TF * = -1000 Then 
ヌ = 5000 
End エモ E 
* ミ = ニー- 50 
Labe11.LeF モ = 交 
End Sub 


Lesson1 の 9 ……・A1 (O&A-19.vbp) 


① フ ォ ー ム に 、 ス クロ ー ル バー コン トロ ー ル と テキ ス ト ボ ックス コン トロ ー ル を 配置 し ま 
表 。 
② ぐ スク ロー ル バ ー コ ント ロー ル は 、 次 の プロ パテ ィ を 設定 し ます 。 





限 A 7 co 6 回 
Max 


③ ス クロ ー ル バー コン トロ ー ル の Change イベ ント プロ シー ジャ で 、 タ タイマー コン トロ 
ー ル の [Intervall プロ バ パティ に 、 ス クロ ー ル バー コン トロ ー ル の [Value] プロ パテ 
ィ の 値 を 代入 し ます 。 ま た 、 テ キス ト ボ ックス コン トロ ー ル の [Text] プロ バテ ィ に 
も 値 を 代入 し ます 。 

《④ テ キス ト ボ ックス コン トロ ー ル で は 、 入 力 さ れ た 数 値 を スク ロー ル バ ー コ ント ロー ル の 
[Value] プロ パテ ィ に 代入 し ます 。 

⑤ ス クロ ー ル バー コン トロ ー ル の [Value] プロ バテ ィ に 値 が 代入 され る と 、 ス クロ ー ル 
バー コン トロ ー ル に 自動 的 に Change イベ ント が 発生 し ます 。 そ し て 、Change イベ 
ント プロ シー ジャ が 実行 され 、 タ イマ ー コ ント ロー ル の [Intervall プロ パテ ィ が テキ 
スト ボッ クス コン トロ ー ル に 入力 され た 値 で 設定 され ます 。 













D1m 交 AS TnEeger 


Pr ュ ゞ ate Sub Form Load ( ) 
1mer1 . エ ロモ Grva1 = 100 
= 5000 

End Sub 


ex 上 1 。exx = HSCro111 .Va1ue 
mer1 . エロ 上 Ga = HSCro111 . び a1ue 
正 nd Sub 


P ェ ュ ゞ ate Sub HSCro111 Change ( ) 
追加 し た コー ド 








練習 問題 の 解答 (Lesson19-~ Lesson ら 


P エ ュ ゞ ate Sub Tex モ 1 Change( ) 
エ fF "Texxt 上 1 。mex = "m Or "mext 上 1 。mex モ 上 = "0"m mhen 
MsgBoxr "数 値 を 入力 し て くだ さい * 
芋 SC エ oO ユ 111 .Va1ue = 1 
mex ヒ 1 。Texx 上 = "1m 
ES@ 
HSC て oO111 。Value = エ n モ errirneme) | 追加 し た コー ド 
End エ F 
End Sub 


P ェ エ ュ で a モ 上 e Sub Timer1 Fmer() 
エ 半 立 = -1000 Then 


= 5000 
End エモ 
= - 50 
Labe11.LefF = 郊 
正 nd Sub 


lessom20 ……A1 (O<A-20.vbp) 

チェ ッ ク ボ ックス が チェ ッ ク さ れ た か どう か は 、 チ ェ ッ クボ ックス コン トロ ー ル の 
[Value] プロ パテ ィ の 値 を 調べ ます 。 チ ェ ッ ク さ れ て いれ ば 、 ラ ベル コン トロ ー ル の 
[Fontltalic] プロ パテ ィ を True に 設定 し ます 。 チ ェ ッ ク が 外さ れれ ば 、[Fontltalic] 
プロ パテ ィ を False に 設定 し ます 。 


P ェ ュ a モ 上 e Sub Check2 _C1icK ( ) 
Se1ec Case Cheock2 . び a1ue 
Case 1 
Labe12 .FOn 上 エモ 上 a エ ユエ ご = エエ いら 
追加 し た コー ド 
Case 0 
Labe12 .FOn 上 エモ 上 a ユ 1C = Fa1se 
End Se1eoc 
正 nd Sub 


lessom21 AT1 (O&A-21.vbp) 

[削除 ) ボタ ン の 無効 化 は 、[ 削 除 ] ボタ ン の Click イベ ント プロ シー ジャ の 中 で 行い ま 
す 。 常に 、 コ ン ボ ボッ クス の ListCount プロ パテ ィ の 値 を チェ ッ ク し て 、 こ の 値 が 「0」 
に な っ た 時 点 で ボタ ン の 無効 処理 を 行う よう に し ます 。 


P エ ュ で a モ 上 @G Sub De1Btn C1 ふ icKk ( ) 
Dim ReSu1] 七 AS エ nEeger 
Dim Name AS S エ ng 
Dim Ms AS 8 上 エ ing 





付録 癌 種 リフ ァ レ ン の 


Name = Combo1 . Fe 上 
Msg = "リス ト ボ ックス か ら g Name g " を 削除 し ます か 
ReGSu1 七 = MsqBoxx (MS , ゞ で bYesNoO ) 
エ F ReSu1] ヒ = で bYes Then 
Combo1 . Remoe エ tem Combo1 . エ 5 上 Tndex 
エ F Combo1 . エ SE 上 Coun モ = O Then 
MsgBox "これ 以上 削除 で きま せん " ト 5 
De1B て tn . 正 nab1ed = Fa1se 追加 し た コー ド 
End TE 
End TE 


End Sub 


また 、[ 削 除 ] ボタ ン の 有効 化 は 、[ 追 加 ] ボタ ン の Click イベ ント プロ シー ジャ で 行い 
ます 。 こ こ で も 、 毎 回 コン ボボ ックス の [ListCount] プロ パテ ィ の 値 を 調べ て 、「0」 
以外 で あれ ば 常に ボタ ン が 有効 に な る よう に 処理 し て お きま す 。 


P エ ュ ゞ ate Sub AdqdQdBtn C1ioCK ( ) 


Dim ReSu 和 1 七 AS エ nELeder 
Dim Name AS8 St エ ng 


Name = Combo1 . me 上 
Resu1t = MsgBox(" リ スト ボッ クス に 追加 し ます か ?", ybyesNo ) 
エエ ReGSu] モ 上 = ゞ YbYes "Then 

Combo1 .AdQd エ tem Name 


エ F Combo1 . エ St 上 CounE <> O Then 
De1Btn .Enab1ed = mrue 1 追加 し た コー ド 
nd エモ 
EnQd エモ 


End Sub 


Lessom 2 ラ ・・A1 (O ひ <A-22.vbp) 
Line Inpu せ # ステ ー ト メン ト の 記述 を 、「Input #1」 に 変更 し ます 。 


P ェ ュ ivate Sub Fi1eRead ( ) 





Dim BuFF1 AS ヒエ ュ ng 
Dim BuEF2 AS St エ ュ nd 


Open App . Pa 上 h & " 半 エ eadme . 上 上 " 正 O エ エロ pu 七 As 提 1 
Do Whi1e Not EOF(1) 
Tnpu 草 1,。 BuE 下 1 < ペーーーーーーーーーーーーーーーー 変更 
BuFF1 = BufFEF1 + Chr(13) + Chr(10) 
BuFF2 = BuFF2 + BuFE1 
OOp 








練習 問題 の 解答 (Lesson22 - Lesson ら z 


xx 七 1 。 FeGx 七 = BuFEF2 
C1ose 提 1 
End Sub 


Lessom うろ *……・A1 (OS&A-2 う うろ.vbp) 

① メ ッ セ ー ジ ボッ クス は 、 引 数 に 「vbYesNoCancel」 を 指定 し 、[ は い ] [いい え ] [ キ 
ャ ン セ ル ] ボタ ン の 付い た タイ プ を 作成 し ます 。 

@②MsgBox 関数 が 実行 され る と 、 ク リッ ク さ れ た ボタ ン の タイ プ が 戻り 値 と し て 返っ て 
さき ます ので 、 こ れ を 変数 で 受け 止め ます 。 

③ 戻 り 値 は 定数 で 設定 され て いま す 。 [は い ] が クリ ッ ク さ れる と 「vDYes」 が 返さ れ ま 
すか ら 、 こ の と きだ け リ スト ボッ クス の 内 容 を 保存 する プロ シー ジャ 「FileSave」 を 
呼び 出し ます 。 そ し て 、End ステ ー ト メン ト で プロ グラ ム を 終了 させ ます 。 

④[ い いえ ] ボタ ン が クリ ッ ク さ れる と 、MsgBox 関数 は 「vDNo」 を 返し て きま す 。 こ 
の と き は 、 リ スト ボッ クス の 項目 は 保存 せ ず 、End ステ ー ト メン ト で プロ グラ ム を 終 
了 す る だ け で す 。 

⑤[ キ ャ ン セ ル ] ボタ ン が クリ ッ ク さ れ た と き は 、 メ ッ セ ー ジ ボッ クス を キャ ン セ ル す る 
だ け で すか ら 、 特 に 何 も 記述 し ませ ん 。 

⑥Form_Unload イベ ント プロ シー ジャ で 、FileSave を 呼び 出し て いま し た が 、 メ ッ セ 
ー ジ ボッ クス で [はい ] が クリ ッ ク さ れ た と きだ け 保 存 し ます の で 、 こ の プロ シー ジャ 
生体 を 削除 し ます 。 


P エ ュ で a ヒ SuD 到 ※ エ 上 選 上 mn C11Ck( ) 
Dim ReGSu 寺 上 AS エロ 上 ヒ Gd す Gr 


Resu1t = MsgBox(" リ スト 頂 目 を 保存 し ます か ", vbyesNocance1, _ 
w デ ー タ の 保存 ") 
エエ ReSu]l ヒ = ゞ で bYes Then 
Ca11 正 ミ 1eSa で e 
End 
1seG エ F ReGSu] 七 = ゞ で DbNo Then 
End 
End エモ 
End Sub 


Lessom うろ AT (OA-24.vbp) 

① フ ォ ー ム に 、 コ ン ボ ボッ クス を 追加 し ます 。 

⑧⑥ ぐ コン ボボ ックス の [List] プロ パテ ィ に 、「*.bmp」 「*Jjpg」 「*.gif」 の 文字 列 を 入力 し 
ます 。 

③ フ ァイル リス ト ボ ックス の [Pattern] プロ バテ ィ を 「|*.Dmp」 1 つ だ け に し て お きま 
すず 。 





付録 各種 リフ ァ レ ン の 





④ 次 の コー ド を 、 コ ン ボ ボッ クス (Combo 1 ) の Click イベ ント プロ シー ジャ に 追加 し 
ます 。 こ れ で 、 コ ン ボ ボッ クス で 選択 し た ファ イル タイ プ が 、 フ ァイル リス ト ボ ックス 
の [Pattern] プロ バ パティ に 代入 され ます 。 し か し 、 た だ 代入 し た だ け で は 、 フ ァイル 
リス ト ボ ックス は 変更 され ませ ん の で 、RHefresh メソ ッ ド を 使っ て 、 強 制 的 に 表示 を 
更新 し ます 。 


Pr ュ 1 ゞ ate Sub Combo1 C1rck ( ) 
F ユ 1eG1 .Pa 上 上 G ェ nm = Combo1 . Tex 上 
Fi1e1 .ReFresh 

End Sub 





Lessom うう ・…・A1 (O&A-2S.vbp) 

プロ グラ ム 終 了 時 に 、 バ ー ジ ョ ン 番 号 を 保存 する の で 、[ 終 了 ] ボタ ン が クリ ッ ク さ れ 
た と き に 、 処 理 を 実行 する よう に し ます 。 

まず 、 プ ログ ラム の バー ジョ ン 番 号 は 、App オブ ジェ クト の [Major] [Minor] 
[Revisoin] プロ パテ ィ に 格納 され て いま す 。 こ れ ら の 値 を 組み 合わ せ て 、 バ ー ジ ョ ン 番 
号 に な る よう に 、 文 字 列 を 作成 し ます 。 こ の と き 、 同 じ オ ブ ジ ェクト 名 「App」 を 何 回 も 
使い ます の で 、With ステ ー ト メン ト を 使っ て 、 オ ブ ジ ェクト 名 の 記述 を 一 回 で 済ま せ て 
いま す 。 

バー ジョ ン 番 号 が 作成 で きた ら 、SaveSetting ステ ー ト メン ト を 使っ て レジ スト リ に 
保存 し ます 。 新しく 「Version] と いう section が 設定 され て いま す 。 確か め て みて く 
だ さい 。 


P エ ュ ゞ a モ e Sub 互 x ュ モ 上 C1iok() 
Dim VerNum AS SE エ 1ng 


W ュ th App 
VerNum = "Version : " & .Ma]o エ & "/ "を 。Minor 
岳 、/ を 。 半 の た まま の me 
End_ W ュ th 
SaYeGSe モ t モ ュ ng appname:="ORun" ,。 Section:="Version", 
人 KG : =" Bu ユエ 1d" , Se ヒ 上 nd : =VerNum 

End 

End Sub 





Lessom 26・……A1 (OS&A-2G.vbp) 
① フ ォ ー ム に 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル 、 コ マン ド ボ タ ン 、 テ キス ト ボ ッ 
クス コン トロ ー ル を 配置 し ます 。 








練習 問題 の 解答 (Lesson25 Lesson6 ら 6 





@② ぐ テキ スト ボッ クス コン トロ ー ル の [Multiline] プロ パティ を 「True」 に 、 
[ScrollBars] プロ バ パティ を 「3 - 両 方 」 に 設定 し ます 。 

③ コ モン ダイ アロ グ ボ ックス に 、 テ キス ト フ ァイル だ け を 表示 する た め に 、[Filter] プ 

ロバ パテ ィ を 「 テ キス ト フ ァイル (*.txt) 評 .txt」 に 設定 し ます 。 


4 区 









Co od loet ! Co 遇 呈 alog 


テキ スト ファ イル txt.txt 


F lags U 
FontBold False 
』Fontltalic Fa ほ e 





《④[ フ ァイル を 開く ] ボタ ン に コー ド を 記述 し ます 。 コ モン ダイ アロ グ ボ ックス の 
[FileName] プロ パテ ィ に 格納 され る ファ イル 名 を 、 変 数 GetName に 格納 し 、 こ れ 
を Open ステ ー ト メン ト に 渡し て ファ イル を 開き ます 。 

⑤[ フ ァイル を 開く ] ダイ アロ グ ボ ックス で [キャンセ ル ] ボタ ン が 押さ れる か 、 フ ァ イ 
ル 名 が 空 の と き に は 処理 を 行わ な いよ うに し ます 。 

⑥ 後 は 、 フ ァイル を 読み 込む 操作 を 行っ て 、 テ キス ト ボ ックス コン トロ ー ル の [Text] 
プロ パテ ィ に 出力 し ます 。 

⑦[ 閉 じ る ] ボタ ン に End ステ ー ト メン ト を 記述 し ます 。 


P ェ ュ rate Sub Command1 C11oCKk( ) 
Dim Ge も tName AS 8 ヒエ nd 
Dim BuFF1 As 8 上 エ ュ nd 
Dim BuEFF2 AS 8 ヒエ ュ nqd 





付録 癌 種 リ ファ レン 





W ュ th CommonDia1og1 
・ShowOpen 
GetName = .F1i1ename 
End W ュ th 


エ F GetName <> "『『 中 hen 
Open GetName FO エ エロ npu 七 As 提 1 
Do Whi1e Not EOF (1 ) 
1mG エエ n ロ pu 上 井 1, BuFEFE1 


BuFE 正 1 = BuFF1 + Ch エ (13) + Chr(10) 
BuFEF2 = BuFF2 + BuFF1 
〇 Op 
Tex モ 1 .TGx ヒ 上 = BuFF2 
C1ose #1 
nd エ 
End Sub 


P ェ ivate Sub Command2 C1ick ( ) 
EnQd 
正 nd Sub 





Lessom スプ ・・A1 (OS&A- ス 7.vbp) 
MIDI ファ イル を 再生 する に は 、 ま すず [DeviceType] プロ パテ ィ に 「Sequencer| を 
セッ ト し ます 。 そ し て 、[filename] プロ パテ ィ に MIDI ファ イル を 設定 し ます 。 


P エ ュ ゞ a モ 上 @G Sub Form Load ( ) 
MMCOn モ ヒエ oO11 . De で 1ceType = "Sequencer" 
MIMCOn モ エ o11 . 上 11ename = App.Path & "等 Md001 .mid" 
MIMCOn ヒ Oo1 1 . NO 上 ュ ミエ = Fa1se 
MMCOn ヒ と エ o1 1 . Wa ユヒ = T エ ue 
MMCOn モ ヒエ o11 .Shareab1e = Fa1se 


MMCOn モ ヒエ o11 .Command = "Open" 
End Su も 


Pr ュ 1 ゞ ate Sub Form Un1oad (Cance1 As Tnteger ) 
MMCOn モ と エ o11 .Command = "『C1ose" 
End Sub 


※ こ の 練 首 問題 で 使用 し た 「MdO0 1.mid」 の 著作 権 は (株 ) CSR 研究 所 が 所 有 し ます 。 


Lessom 2S・…・A1 (OS&A-28.vbp) 


①「Lesson28.vDp] の プロ グラ ム に 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル を な を 追加 
し ます 。 











練習 問題 の 解答 (Lesson2 フ ー Lesson ら c 


⑧②⑥ ぐ フォ ー ム の Load イベ バン ト プ ロ シー ジャ か ら 、 次 の 行 を 削除 し ます 。 


MMCon モ ヒエ o11 .E ュ 1ename = ApDp.Path & 『 笠 muS1C.Wa で " 


③ コ マン ド ボ タ ン の Click イベ ント プロ シー ジャ に 、 コ モン ダイ アロ グ ボ ックス の 処理 を 
追加 し ます 。 


W ュ th CommonDia1og1 
-Fi1lter = "サウ ンド ファ イル (*.way) | * .wav" 
・ShowOpeGn 
GetName = .Ei1ename 

End W ュ th 


(④ 選 択 さ れ た ファ イル 名 を 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル の [filename] プ 
ロ パ ティ か が ら 取 得 し 、 マ ル チ メ ディ アコ ント ロー ル の [filename] プロ パテ ィ に 設 
し ます 。 


MMCon ヒ と エ o1 1 . 1ename = GetName 


⑤ あ と は 、For..….Next ルー プ で サウ ンド を 再生 し ます 。 


P エ ュ ゞ a モ 上 Sub Command1 C1iok ( ) 
D1m 1 AS エ nEede ェ 
Dim GetName AS 8 ヒエ ュ nq 


W ュ th CommonDia1og1 
-Fi1lter = "サウ ンド ファ イル (*.way) | * .wav" 
ShowOpen 
GetName = .E1i1ename 

正 nd W ュ th 


エエ FE GetName <> "中 上 hen 
MMCoOn モ ヒエ o11 . ミ 1ename = GetName 


OO だ 拓 mw る pp 3 
MMCOn モ ヒエ o11 .Command = "Sound" 
NGx* 
nd エモ 
End Su も 


P エ ュ ゞ で a モ 上 Sub Form Load ( ) 
MMCon ヒ と o11 .D@e ゞ iceType = "WareAudio" 
MMCon ヒ と o1 1 .NO モ ヒュ FE = Fa1se 
MMCOn ヒ エエ Oo1 1 。 Wa ユエ 七 = エエ uG 


2 の 
付録 種 リフ ァ レ ン 





MMCOn モ ヒエ o11 .。Shareab1e = Fa1se 


MMCOn モ ヒエ o11 .Command = "Open" 
End Sub 


Private Sub Form Un1oad (Cance1 As Tnteger ) 
MMCoOn ヒ と エ o11 .Command = "C1ose" 
End Sub 


Lessom うり …・A1 (O&A-2 の .vbp) 

フォ ー ム 起動 時 に 、[DatabaseName] プロ パテ ィ に 読み 込む デー タベース ファ イル 
名 を 指定 し ます 。 こ の と き に 、App オブ ジェ クト の Path プロ パテ ィ を 使っ て 、 実 行 する 
プロ グラ ム が ある ディ レク トリ パス を 取得 し ます 。 た だ し 、 こ の と き フ ァイル 名 の 前 に 
[\」 記号 を 付け てく だ さい 。 こ れ を 付け 忘れ る と 、 フ ァイル は 読み 込ま れ ま せん 。 


P ェ ュ a モ e Sub Form Load ( ) 


Data1 .DatabaseName = App.Path & "本 社 合計 1 .wpB" 
End Sub 


Lessom う 0……・A1 (OS&A-3O.vbp) 
フォ ー ム に タブ 付き ダイ アロ グ ボ ックス を 配置 し ます 。 
[TaDs] プロ パティ を 「6」 に 設定 し 、[TabsPerRow] を 「3」 に セッ ト し ます 。 





Lessom ろう 14・・A1 (O&A- ろ 1.vbp) 
①Visual Basic の [プロ ジェ クト ] メニ ュー か ら 「[ フ ォ ー ム モジ ュー ル の 追加 ] を 選び 
ます 。 フ ォ ー ム 選択 ウィ ンド ウ が 表示 され ます か ら 、[ バ ー ジ ョ ン 情 報 ] を 選び ます 。 








練習 問題 の 解答 (Lesson ら 9 ~ Lesson3 





sk 4 は (3 


フォ ー ム デー タフ ォ ー ム 回 証 訂 題 諾 衣 Web ) ラ ウサ 。 デイ ロ ゲ レル P』 
モツ ュー ル り ィ サー ト ^ デイ 


ロロ ロロ は G2 


見 出し 画面 の ポ イト ODBC ロゲイン 





@②⑥ 「 バ ー ジ ョ ン 情 報 」 フォ ー ム の 、「 バ ー ジ ョ ン 」「 ア プリ ケー ショ ン の 説明 」「 警 告 」 を 
書き 換え ます 。 必要 な ら レ イア ウト も 自由 に 変更 し て みて くだ さい 。 ア イコ ン は 
Visual Basic の も の が 使わ れ て いる の で 、 自 分 の 好き な イメ ー ジ に 入れ 替え る こと も 
まき 

③ こ の フォ ー ム も 、「 ア プリ ケー ショ ンタ イト ル 」 「 バ ー ジ ョ ン 情 報 ] は 、 コ ー ド て 制御 さ 
れ て いま す 。 ま た 、| シ ステ ム 情 報 」 は 、「[MSINF032.EXE」 と いう プロ グラ ム を 呼 
び 出 し て いま す 。 こ の プロ グラ ム が コン ピュ ー タ に な い 場 合 は 、 メ ッ セ ー ジ ボッ クス が 
表示 され ます 。 


SS エ 牧人 





(④ フ ォ ー ム が 完成 し た ら 、Form1 に 配置 し た コマ ンド ボタ ン の Click イベ バン ト プ ロ シー 
ジャ の 処理 を 、 バ ー ジ ョ ン 情 報 フ ォ ー ム を 表示 する 処理 に 変更 し ます 。 


P ェ ivate Sub Command1 C1iock ( ) 
rmnADout . Show - ミ ーーーーーーーーーーーーーーーー 喝 


正 nd Sub 


⑤ こ れ で 、 完 成 で す 。 プ ログ ラム を 実行 し て 動作 を 確認 し て くだ さい 。 





付録 損 種 リ ファ レン 





Lessom うろ ・…・A1 (O&A- ろ 2.vbp) 

① ま すず 、Visual Basic の [デバッグ ] メニ ュー か ら [ウォ ッ チ 式 の 追加 ] を 選び ます 。 

② ウ ィ ン ド ウ が 開き ます の で 、[ 式 ] ボッ クス に 変数 名 「i」 と 入力 し ます 。 対象 と する プ 
ロ シ ー ジ ャ は [Command 1 -Click] 、 モ ジュ ー ル は [Form 1] を 選び ます 。 そ し て 、 
[OK] ボタ ン を クリ ッ ク し ます 。 


- 対象 ーーーーー ユ 
moe に ーーーーー コ ニー po | 
| Br ーーーーーー 逢 Re 








Form1.Command1 Clici 
Form1 Command1_Click 





Lessom ろう 人 を <・A1T (O&A- ろ 人.vbp) 


エラ ー が 発生 し た と き の エ ラー 番号 は 、Err オブ ジェ クト の [Number] プロ パテ ィ に 
格納 され ます 。 こ れ を 、 メ ッ セ ー ジ ボッ クス で 表示 させ ます 。 





MSG : 
MsgBoxk 下 エ ェ 。.Number - ペ ーーーーーーーーーーー 一 - 所 加 


MsgBox "指定 し た ファ イル が 見 つか り ま せん 。 再度 入力 し て 下さ い 。 
た G2E も 3 。 gaE も m “= ピ 
End Sub 


この 例題 で は 、MSG ラベ ル の すぐ 後に 記述 し て いま す 。 エ ラー 番号 の 意味 に つい て は 、 
付 昧 の 「 エ ラー 番号 一 覧 ] を 参照 し こく だ さい 。 
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瀬戸 騰 ( せ と は る が) 


誰 に は 十分 気 を 付け て お り ま す が 、 


プロ グラ ムコ ー ド や 本 文 の 誤記 な ど で 訂 正 が 発生 し た 場 


フリ ー ソ フト の 作者 か ら バ ソコ ン 関 係 の フリ ー ラ イタ 
ー に 転身 。 主 に 、 バ ソコ ン 通 信 ・ ホ ー ム ペー ジ 作 成 と 
Visual Basic 関 連 の 解説 書 を 中 心 に 執筆 、 こ れ ま で 約 


合 に は 、 以 下 の ホ ー 
ます 。 ご 利用 下さ い 。 


ムペ ー ジ に て 計 正 内 容 を お 知ら せ し 
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ビーー 翔 泳社 の Visual Basic 関連 書 紹介 ーー コ 


全 央 絶賛 発売 中 ! 

Visual Basic 

for スー パー ビギナー ズ 

瀬戸 遥 著 

定価 1505 円 十 税 

A4 変 型 判 CD-ROM2 枚 付き 

Visual Basic 6.0 の 評価 版 を 付属 し て いる の で 、 買っ た その 日 
か ら プ ログ ラミ ング に 親 し め ま す 。 Windows の 使い 方 に それ ほ 
どど 堪能 で は な い 方 に も 操作 で きる よう に 、 図版 と 親切 丁寧 な 解 
説 を 豊富 に 掲載 し こ て あ る の で 初心 者 の 方 で も 理解 し や すい 紙面 
構成 と な っ て いま す 。 自己 診断 書 で 、 ど の 章 か ら 読 み 始め れ ば よ 
いか が わか る よう に な っ て いま す 。 


]0。。Visual Basic 6.0 
ISUa コ 1 DaSIC O. 
1 峰 識 教 室 


VB テ ッ ク ラ ボ & 瀬 戸 遥 著 

定価 本体 3200 円 十 税 

B5 変 型 判 CD-ROM 付 き 

入門 か ら ス テッ プア ッ プ し た い 人 の た め の 応 用 編 。 今回 は 
Windows の 機能 (API な ど ) を 生か し た 、 より Windows ら し い 
アプ リケーション を 作る た め の テ クニ ッ ク が 中 心 で す 。 プロ グラ 
ム の 構造 が 理解 し や すい サン プル アプ リケーション を 作成 し な 
が ら 説 明 し て いる の で 、 容易 に 高度 な プロ グラ ミン グ を マス ター 
する こと が で きま す 。 


0 電 絶賛 発売 中 ! 


ExCel VBA 
IOgc 入門 教室 2oozx 


VB テ ッ ク ラ ボ & 瀬 戸 遥 著 

定価 本体 2800 円 十 税 

B5 変 型 判 CD-ROM 付 き 

「 プロ グラ ミン グセ ミナ ー」 の よう に 、 段階 を 追っ て VBA の テク 
ニッ ク を 説明 する VBA 入 門 書 の 決定 版 。1 日 で すさ て 4 レッ スン 
を こなし て いけ ば 、 1 0 日 で 無理 な く VBA の 全体 を 学べ る よう に 
構成 し て あり ます 。 レッ スン ご と に 1 つ ず つ 、 サン プル マク ロ を 
目 分 の 手 で 作っ て も らい ます の で 、 VBA の 基本 を 理解 し な が ら 
すぐ に 実践 で き 、 知識 と テク ニッ ク が し っ か り と 身 に 付き ます 。 
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コマ ンド ボタ ン で メッ セー ジ を 表示 する etc 
時 限 目 プロ バテ ィ を 操作 する etc 
3 時 限 目 イメ ー ジ ファ イル を 使う etc 
4 時 限 目 コン トロ ー ル を 組み 合わ せる etc 
5 時 限 目 自習 


クリ ッ ク と ダブ ルク リッ ク 

時限 目 マウス イベ ント を 使う 

3 時 限 目 変数 を 使う 

4 時 限 目 MouseDown と MouseUp の 組み 合わ せ 
5 時 限 目 お 絵描き を プログ ラム の 作成 











メニ ュー を 組み 込む 
ど 時 限 目 右 ボ タン ポッ プア ッ プ メニ ュー を 作る 
時 限 目 ーー 
4 時 限 目 ニュ ー の 削除 
時限 目 1 昌和 こ 伯 ま ま る 


| アニ メー ショ ン 家 示 プ ログ ラム 
時 限 目 スク ロー ル バ ー と ツー ル チ ッ プ を 使う 
時 限 目 チェ ッ ク ボ ックス ・ リ スト ボッ クス コン トロ ー ル を 使う 
人 時限 目 コン ボボ ックス で の リス ト 項 目 の 追加 と 削除 
時限 目 自習 


] 時 限 目 テキ ス ト フ ァイル を 読み 込む 

ど 時 限 目 リスト 項目 を ファ イル に 書き 出す 
3 時 限 目 イメ ー ジ ビュ ー ワ ー の 作成 

4 時 限 目 自習 

5 時 限 目 自習 
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9784881356876 
定価 : 本 体 2.800 円 十 税 
1923055028005 
CO ソフ トウ ェ ア ラ ンチ ャ ー の 作成 _ 
] 時 限 目 メイ ン モ ジュ ー ル の 作成 
ら 2 時限 目 セッ ト ア ッ プ モジ ュー ル の 作成 
ビ ョ 日 時 限 目 自習 
4 時 限 目 自習 
時限 目 自習 
0 り ーー 。 コモ ンタ アロ グ ボ ンク ス 人 
7 際限 目 マル チ メ デ ィ ア を 使う etc 
第 ほ 電 虹 づ 時 限 目 デー タコ ント ロー ル 
4 時 限 目 タブ 付き ダイ アロ グ ボ ックス 


時限 目 ” フォ ー ム テン プレ ー ト の 活用 







1 革 限 目 変数 の ウォ ッ チ を 使う 
時 限 目 ブレーク ポイ ント を 使う 


9 時限 目 エラ ー 処 理 を 使う 。 0 
4 時 限 目 自習 


時 限 目 上 5 





] 時 限 目 EXE フ ァイル の 作成 
時限 目 バー ジョ ン と 作成 情報 を 設定 する 
、 時限 目 ディス トリ ビュ ーション ウィ ザー ド 

4 時 限 目 自習 
5 時 限 目 自習 







1 時限 目 スロット マシ ンコ ント ロー ル の 作成 
ど 時 限 目 ActiveX コ ント ロー ル の 組み 込み と テス ト 
3 時 限 目 ActiveX コ ント ロー ル を HTML に 組み 込む 
4 時 限 目 自習 

5 時 限 目 自習 








